filelistbox движение по файлам

[Gumer]

Если добавить на форму компонент filelistbox и directorylistbox, то можно с помощью кнопок tab>shift+tab перемещаться между этими компонентами, а также с помощью стрелок между файлами или каталогами в компонентах.

Можно ли в программе задать другие кнопки или комбинации кнопок для передвижения? Например, колесиком мыши перемещаться по filelistbox и кнопками Page Up and Page Down перемещаться между каталогами (папками).

[mihali4]

Например:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_PRIOR then
DirectoryListBox1.ItemIndex:=DirectoryListBox1.ItemIndex-1;
key:=0;
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
if FileListBox1.Focused then
ActiveControl:=nil;
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;

Проверки добавите самостоятельно.

[Gumer]

Большое спасибо! Как раз то, что надо.

Еще один маленький вопросик (новую тему не стал создавать): при нажатии на кнопку Enter или при двойном щелчке мыши в directorylistbox я открываю каталог. Как это сделать в программе?

DirectoryListBox1.???

[mihali4]

DirectoryListBox1.OpenCurrent

[Gumer]

Большое спасибо!