eine Variable im ganzen Programm verwenden

[Thomas Melchert]

<p>Hallo Bine,<br>
<br>
Form2 wird erzeugt und geöffnet.<br>
Wenn der Benutzer das Form schließt, durch drücken auf den "OK"-Button (gibt als ModalResult <b>mrOk</b> zurück, beim "Abbrechen" ist das ModalResult <b>mrCancel</b>), dann werden die Daten von Form2 mit der Property "UserEingabe" abgeholt und der Methode/Procedure seteingabefelder übergeben.<br>
<br>
Gruß Thomas</p&gt

[Thomas Melchert]

<p>Hallo Bine,<br>
<br>
Form2 wird erzeugt und geöffnet.<br>
Wenn der Benutzer das Form schließt, durch drücken auf den "OK"-Button (gibt als ModalResult <b>mrOk</b> zurück, beim "Abbrechen" ist das ModalResult <b>mrCancel</b>), dann werden die Daten von Form2 mit der Property "UserEingabe" abgeholt und der Methode/Procedure seteingabefelder übergeben.<br>
Danach wird Form2 wieder zerstört.<br>
<br>
Gruß Thomas</p&gt

[Bernhard Berger]

Wollt ihr beiden den Rekord für die meisten Kommentare zu einen Foren-Eintrag brechen? *g

[Thomas Melchert]

<p>Wenn's nicht anders geht, warum nicht?</p&gt

[Bine]

ähm hallo Thomas!!

hab noch ein problem mit der 2ten procedure

-->procedure TForm1.OeffneForm2(aSender:TObject);

Folgendes Form2 wird mit einem close geschlossen, also haben bei mir die modalresult keine definitionen.(wertzuweisungen). Glaub ich halt!!

Ich muß es irgendwie so lösen,

if form2.close then seteingabefelder(form2.Usereingabe);

aber so ganz funktioniert das auch nicht,..

Kannst du mir nochmal helfen???
BItte :_

[Bernhard Berger]

Du kannst ja vor dem Schliessen das ModalResult selber noch setzen z.B.:
<p>
ModalResult := mrOk; // <- ok als ModalResult übergeben <br>
Close; // jetzt erst schliessen</br>
<p>
Gruß,<br>
Bernhar

[Thomas Melchert]

<p>Hallo Bine,<br>
<br>
ich werde Dir heute Abend (hoffentlich vergesse ich es nicht) ein kleines Beispielprogramm zusenden.<br>
<br>
Gruß Thomas</p&gt

[Bine]

Danke genauso ein Beispiel hab ich mir gewünscht, mit soeinem kann man wenigstens was anfangen.

DANKE!!!!! BINE:_