Dateipfad ermitteln und in Edit Feld schreiben. Wie?

[Creylon]

Hier ist das Feld wo man das dann einstellt:

http://s1.directupload.net/images/100606/oum33kgg.jpg


Der freie Platz ist dann noch für weitere Optionen.

[Matze]

Ziehe einen Open(Picture)Dialog aufs Formular und schreibe das hin:

Delphi-Quellcode:

if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.FileName;

Das ist mal die Grundfunktionalität.

[Creylon]

Soll ich das ins OnClick Ereignis vom Button machen?

[RWarnecke]

Ja, in das OnClick-Ereignis des Buttons.

[Matze]

Nun ist der Zeitpunkt gekommen, an dem ich auf die Grundlagentutorials verweise. Ich habe den Eindruck, die fehlen dir ein wenig.

[Creylon]

Passiert garnichts.

[Matze]

Zeige uns deinen Code. Sonst ist das die reinste Raterei.

Einen Doppelklick auf den Button, TOpen(Picture)Dialog aufs Formular ziehen und meinen Code einzufügen sollte übrigens machbar sein. Hast du das anders versucht, siehe dir die verlinkten Tutorials, speziell den Crashkurs, an.

[Creylon]

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Visible:=false;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Visible:=false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  Form3.Edit1.Text := OpenPictureDialog1.FileName;
end;

end.

[Matze]

Und es passiert nichts, wenn du auf den 4. Button klickst?

Keine Reaktionen, gar nichts? Oder kommen Fehlermeldungen?

[Creylon]

Lol.
Ich hab Doppelklick auf Button3 gemacht und das da rein kopiert.
War aber auf Button4...
Sorry