[gelöst] Wie komme ich von Form1 auf Form2

[wega]

Hallo zusammen,

wie bekomme ich die Daten von Form1 auf Form2 und wie kann ich Form 1 sehen?

ich lade mal ein bild hoch, das mein Problem grafisch darstellt.

Ich hoffe, daß dies deutlich ist.

mit Gruß
Werner

[Euklid]

Hi Werner, Du musst die unit2 in den uses-Bereich der unit1 schreiben, um von ihr aus auf dasgewünschte Fenster zugreifen zu können.
Gruß, Euklid

[wega]

Hallo Euklid,

OK, aber wenn ich von Form2 zurück will auf Form1
kommen bei mir eine circular Unit referenz Fehlermeldungen beim kompilieren.

Gruß
Werner

[wega]

Hallo,

in Form1 schreibe ich:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.show;
 Form2.SetFocus;
end;

und in Form2:

Code: Alles auswählen

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

Ist das so OK oder gibt es eine elegantere Lösung?

Gruß
Werner

[MAC]

ne das ist elegant genug

Du kannst unter das

Code: Alles auswählen

IMPLEMENTATION

auch

Code: Alles auswählen

IMPLEMENTATION
uses unit2;

schreiben
dann klappt es

[wega]

Danke,

diese Anregung werde ich berücksichtigen.

Gruß
Werner