[Delphinic]

Расскажите пожалуйста как организовать вызов по клавише например F4 редактор файла который выбран в CheckListBox?
Тоесть стоит курсор в CheckListBox-е на первом файле наприме. Нажав F4 надо содержимое файла вывести например в ListBox.
Искал искал по инету но толком ничего нет, все вокруг да около.

[ART]

procedure TForm1.CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_F3 then begin
listbox1.items.LoadFromFile(checklistbox1.Items.St rings[CheckListBox.ItemIndex]);
end;
end;

[Decoding]

Или используй компонент ActionList со вкладки Standard. Кинь его на форму, дважды щелкни по нему мышью, в появившемся редакторе создай новый Action (клавиша Insert). В свойстве ShortCut укажи F4, а в событии onExecute напиши нужный код.

[CyberM@D]

Сообщение от ART

procedure TForm1.CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_F3 then begin
listbox1.items.LoadFromFile(checklistbox1.Items.St rings[CheckListBox.ItemIndex]);
end;
end;

Все верно, но это предполагает, что в Листбоксе указан путь к файлу, а если нет? Примечание: Человек просил по F4, то есть key=vk_F4.

[Delphinic]

Cпасиб огромное! Проще простого! Запишу в тетрадку!

[Delphinic]

Интересно.. На CheckListBox-e пашет отменно, но на форме нехочет.
Все компилируется но не пашет.
И в эвентсах указано все что надо на форме.

[CyberM@D]

Что значит "на форме" - опиши подробнее...

[Decoding]

Попробуй установить свойство формы KeyPreview в true.

[Delphinic]

Адличнинька!!! Заработало! Блин, столько тонкостей, хрен где это прочтешь. Только вот спрашивать остается у знающих!

Спасибо!

[Delphinic]

Все хорошо только немогу никак сделать Ctrl+F10
Какие условия я только не делал..
If (key = Vk_F10) and (key=vk_control) Then Begin

И делал так

if Key=vk_F10+vk_control then begin

и по всякому
и не работает
Подскажите плиз.

[Decoding]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ( ssCtrl in Shift ) and ( Key = VK_F10 ) then
      ShowMessage( '' );
end;

Хотя лучше это делать через ActionList (см. выше)

[Delphinic]

Окей. спасибо, попробовал акшн лист, понравилось.