Problem beim Schließen von Form2

**Tobias**

Hallo...
Ich hab grad n kleines Problem; vielleicht kann mir ja jemand helfen...

Und zwar hab ich mein Hauptformular "Form1". Dort sitzt ein "TMenu" drauf...
Wenn ich auf auf den Eintrag "Neu" klicke, dann soll sich "Form2" öffnen...

Ich weiß net ob der Code stimmt, auf jeden Fall kommt beim Schließen von "Form2" ein Fehler...
" is not a valid integer value Hier mal mein Code zum Öffnen des Fensters:

markieren

Delphi-Quellcode:

			implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);

 Form1.Enabled:=False;

 Form2.ShowModal;

end;

"uses Unit2" deshlab, weil auf dem "Form2" zwei Edit-Felder sitzen, in die ich später Werte eintragen will, und beim Schließen des Fensters (mit einem Button) wieder in "Unit1" übertragen will...

Form2:

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

 Form2.Close;

 width:=strtoInt(Edit1.Text);

 height:=strtoInt(Edit2.Text);

end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

 CanClose:=True;

 Form1.Enabled:=True;

end;

den Code hab ich von

der Internetseite hier....
Inzwischen hab ich allerdings herausgefunden, dass das ganze eigentlich auch nur mit "Form2.ShowModal:" und "Form2.Close;" gehen, sollte, das funktioniert allerdings nicht... :-/
Und dann is da eben immernoch dieser fehler, den ich oben beschrieben habe...

Wenn das hier alles irgendwie komplett falsch sein sollte (bin noch ein ziemlicher Newbie), kann mir dann vielleicht jemand mit nem komplett neuen Code weiterhelfen, mit dem ich zwei Werte aus "Form2" an "Form1" weitergeben kann?
Danke im voraus...

Problem beim Schließen von Form2

Problem beim Schließen von Form2

Forumregeln