Win 3.1 > FileListBox

[Andreas L.]

Hi,

ich habe eine FileListBox auf meinen Form, nun möchte ich wenn man auf eine Datei, die in dieser FielListBox ist, doppelklickt, dass sich dann der Inhalt in ein Memo1 lädt. Wie stell ich das an???? Ich ahb da so ein Beispiel von Borland gesehen, das hat mir aber nicht geholfen!

THX

[phlux]

Hi!
Ich denke der Event OnDblClick und die Property FileName dürften dir da weiterhelfen.

[Andreas L.]

Hi,
soweit war ich schon, komme aber net weiter....
Es sind ja immer verschiedene Files drin!

Wie krieg ich das anders hin!

[phlux]

Ich nehme an du möchtest andere Verzeichnisse auslesen können?
Also die erste Möglichkeit ist das du auch von der Win3.1 Seite eine TDirectoryListBox auf die Form packst. Diese hat die Property FileList, dort kannst du dir dann deine FileListBox aussuchen und schon kannst du durch die Verzeichnisse navigieren.
Die andere Möglichkeit wäre über SourceCode auf die Eigenschaften Drive und Directory der FileListBox zuzugreifen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Drive erwartet einen Char als Laufwerksbuchstaben, sprich A,C,D, usw.
  FileListBox1.Drive := 'C';
  //Dann den Namen des Verzeichnisses angeben
  FileListBox1.Directory := 'Windows';
end;

[Andreas L.]

Das habe ich ja schon, ich möchte eine Datei in ein Memo laden die in der FileListBox drin is, !

[phlux]

Hi!
Baue folgenden Code in den OnDblClick event der FileListBox ein:

Delphi-Quellcode:

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(FileListBox1.FileName);
end;

mfg chris

[Andreas L.]

THX, da hätte ich auch selbst drauf kommen können! Wahrscheinlich habe ich zu kompliziert gedacht!

[phlux]

kein problem, dafür ist das forum doch da

[Andreas L.]

Zitat von phlux:

kein problem, dafür ist das forum doch da

Jo, genau!

[ssach]

hy,

ich weiss nicht was fuwer ein programm du schreiben willst, aber demnach wie kannst du ja auch den LoadDialog nehmen:

Delphi-Quellcode:

procedure Tfrm.Load1Click(Sender: TObject);
begin
  if dlgLoad.Execute then
     mem1.Lines.LoadFromFile(dlgLoad.FileName);
end;

[edit=MrSpock]Code Tag hinzugefügt.[/edit]