FileListBox per mausklick öffnen

[Foxi1896]

Hallo netten Helfer =)

Ich habe eine FileListBox erstellt wo mir meine .txt Datein angezeigt werden.
Wie bekomme ich es hin wenn ich nun per Mausklick eine der Datei zu öffnen und direkt an eine Procedure weiterzugeben.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
 var
    Dir: string;
  begin
    memo1.Clear;
    Dir:=Paramstr(0);                                       memo1.Lines.Add(Dir);
    Dir:=ExtractfilePath(Dir);                              memo1.Lines.Add(Dir);
    Dir:=includetrailingpathdelimiter(Dir)+'Messungen';     memo1.Lines.Add(Dir);
    Dir:=includetrailingpathdelimiter(Dir);                 memo1.Lines.Add(Dir);
    filelistbox1.Directory:=Dir;
    filelistbox1.Mask:='*.txt';
    filelistbox1.UpdateFileList;
 
  end;                             

und an die Procedure weiter geben.

Code: Alles auswählen

 
procedure InGrid(DatName : String);
var                                        

bisher hatte ich halt über Opendialog geöffnet.

gruß
foxi

[DonMigos]

Hi,
so könnte es gehen, wenn ich dich richtig verstanden habe:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
    memo1.Clear;
    Dir:=Paramstr(0);                                       memo1.Lines.Add(Dir);
    Dir:=ExtractfilePath(Dir);                              memo1.Lines.Add(Dir);
    Dir:=includetrailingpathdelimiter(Dir)+'Messungen';     memo1.Lines.Add(Dir);
    //Dir:=includetrailingpathdelimiter(Dir); -> wird bei FileListBox1.FileName automatisch angehängt 
    //memo1.Lines.Add(Dir);
    filelistbox1.Directory:=Dir;
    filelistbox1.Mask:='*.txt';
    filelistbox1.UpdateFileList;
end;
 
procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
  tmpList: TStringList;
begin
  tmpList:= TStringList.Create;
  try
    tmpList.LoadFromFile(FileListBox1.FileName);
    //-> hier übergabe an: InGrid(tmpList.Text);
  finally
    FreeAndNil(tmpList);
  end;
end;   

[Michl]

Eine Datei öffnen:

Event OnClick oder OnDblClick

Code: Alles auswählen

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  InGrid(FileListBox1.FileName);   //FileListBox1.FileName beinhaltet auch Verzeichnisstruktur
end;

[Foxi1896]

also habe jetzt beide Varianten ausprobiert. Funktionieren leider beide nicht =/

@DonMigos: also bei deinem geht es schomal das er den Klick annimmt aber dann kommt:
Unable to open file

[Michl]

Versuch mal folgendes:

Code: Alles auswählen

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  Form1.Caption:=FileListBox1.FileName;   //FileListBox1.FileName beinhaltet auch Verzeichnisstruktur
end;

Jetzt steht in der Caption deiner Form der Name der angeklickten Datei. Jetzt überprüfe, ob diese Datei am angegebenen Ort vorhanden ist.

Wenn ja, dann liegt der Fehler wahrscheinlich in deiner Procedure "InGrid(...)", ansonsten gibt es einen Fehler bei TFileListBox, der mir erstmal nicht plausibel wäre.

[Foxi1896]

AHH, DANKE Euch!!!
@michl: Dein erstes hat schon geklappt. War etwas verpeilt.

[DonMigos]

Achso du wolltest nicht gleich den Textinhalt der Datei mit übergeben, hatte ich übersehen. Muss wohl die Hitze sein ...