Hallo,
ich sitze gerade am selben Problem :/
Mavarik Code funkt bei mir leider nur fast.
Bei mir schaut es angepasst so aus:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var NewForm:tform;
begin
NewForm := TForm2.create(Application);
if not (NewForm.Showmodal = mrok) then
begin
showmessage(NewForm.edit2.text);
end;
showmessage('TEST2222222222');
NewForm.free;
end;
Dabei nimmt er mir das "showmessage(NewForm.edit2.text);" nicht -> compiler fehler: Error: identifier idents no member "edit2"
Das edit2 gibts aber und wird auch verwendet.
gibts noch eine andere möglichkeit an "edit2" ranzukommen? Oder liegt es nur daran das ich freepascal/lazarus verwende, und es dort diese Funktion nicht gibt?
DANKE
patrick