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:
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:
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...
