Цитата:
Сообщение от 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.