Explorer in TForm

[Axxus]

Hi Delphianer :hi:

Ok ich hoffe das war bisjetzt och kein Topic ich hab nix gefunden.

Und Zwar folgendes Problem:

ich hab ein Programm dass in der Lage sein soll eine textdatei zu öffnen.

So jetzt will ich das nicht so billig machen (Nicht per Inputbox).

Ich will folgendes:

Wenn der Benutzer im Mainmenü auf öffnen klickt soll sich ein Weiteres Fprmfenster Öffnen

Auf diesem Fenster soll dann der Explorer angezeigt werden und wenn ich einen Ordner oder Datei auswähle soll die unten in einem Editfenster angeziegt werden

So wie bringe ich den Pc dazu, dass er mir die ganzen daten (den explorer ) anzeigt

Gruß

Axxus

[SirThornberry]

was spricht gegen einen normalen OpenDialog wie es unter Windows üblich ist?

Zu deiner Frage: unter einigen Delphiversionen gibt es den ShellTreeView, ShellListView etc. Da du aber im Profil nicht angegeben hast welche Version du hast kann man da nichts konkretes sagen.

[Axxus]

So ich benutze Turbo Delphi (hats vergessen anzugeben :oops: :oops: :oops: )

So TOpen Dialog hab ich gefunden hab aber keine Ahnung wie das Ding funktioniert

Und wie geht das mit den

ShellTreeView?

[Luckie]

Delphi-Quellcode:

var 

  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

Enfach mal aus der Hilfe kopiert. Man sollte aber auch dmittels dr Forensuche oder zu Not auch mit Google fündig werden. :roll:

Etwas mehr Eigeninitiative bitte.

[Axxus]

Verdammt das ist mir jetzt sau peinlich :oops: :oops: :oops:

Ich war iritiert weil man bei Open Dialog nur ein Kleines Kästchen angezeigt bekommt.

Und wenn mann dann auf Opendialog.Execute geht dachte ich das der da Parameter erwartet is aber net so.

ok danke

Axxus