FileListBox открытие файлов

[program123]

На форме имеются компоненты связанные между собой : DirectoryListbox,FileListBox,DriveC omboBox. Как сделать чтобы клацая по FileListBox можно было загружать txt файлы, и графические ? Заранее спасибо

[Пепел Феникса]

загружать куда?

[Terran]

Можете сделать так:

Uses
   ShellApi;
Procedure TForm1.FileListBox1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(FileListBox1.FileName),Nil,Nil,SW_SHOWDEFAULT);
End;

Или вместо ShellExecute можете загружать файлы в отдельные компоненты.

[spamer]

Можно и так:

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(FileListBo x1.FileName); //Для текста например
Image1.Picture.LoadFromFile(FileLis tBox1.FileName); //Для картинки например
end;

Только вот вопрос - куда загружать?

[program123]

Всем спасибо, загружал в Memo и Image.

[mojohead]

а можна ли просто открыть файл в ворде например или редекторе не загружая в какие либо компоненты