TabSheets aktivieren - aus aufrufendem Formular??

[PM Heiko]

Hallo,

ich verzweifele noch...

ich benutze ein popupmenü um von zwei verschiedenen Formularen(FORM1, FORM2) ein drittes (FORM3)aufzurufen. Dort(FORM3) habe ich zwei Tabsheets. Nun möchte ich, dass wenn ich FORM3 aufrufe, entweder TabSheet1 oder Tabsheet2 als aktiv vorgeblendet wird...

Meine Versuche mit Variablen und so weiter haben mich schon ums Wochenende gebracht.

Irgendwelche Tipps??

Danke

Heiko

[Mario.Noack]

Du kannst sagen: MeinPageControl.ActivePage := TabSheet1;<p>
Schöne Grüße, Mario Noac

[PM Heiko]

Hallo Mario,

klar! das geht! Nun aber mein Problem:

wie kann ich dem aufzurufendem Formular eine Variable übermitteln, anhend derer das Formular "weiss" wer es aufgerufen hat?

Heik

[Markus Rohrschneider]

Hallo Heiko, <br>
sehr simple (vielleicht nicht die eleganteste) Lösung:<br>
Aufruf durch Form1:<br>
Form3.Tag:=1;<br>
Form3.Show;<br>
<br>
Aufruf durch Form2:<br>
Form3.Tag:=2;<br>
Form3.Show;<br>
Marku

[PM Heiko]

(Fast) kein Posting das keine Lösung findet...

ich habe, zumindest glaube ich das, durch Markus´ Hinweis mit den FORMS die Lösung gefunden:

if Form2 = nil then
Form2 := TForm1.Create(self);
Form2.PageControl1.ActivePageIndex := 0;
Form2.ShowModal;
FreeAndNil(Form2);

bei mir funktioniert es nun wie gewünscht!

Danke für die Tipps und bis denne mal

Heik

[Dr.med.Bernhard Schwabe]

-> FreeAndNil(Form2)

Ruf mal die Delphi-Hilfe auf mit dem Stichwort TCustomForm.Release

Und wir können alle davon ausgehen, dass Dein Form-Aufruf in einem try..finally Block steht?!

Gruß und schönes Fest
Bernhar

[PM Heiko]

-> FreeAndNil(Form2)

Ruf mal die Delphi-Hilfe auf mit dem Stichwort TCustomForm.Release

... und? Du meinst sicherlich die Freigabe des Speichers, oder? Ich habe beim verlassen des Formulares alle Ereignisse erfolgreich beendet - (hoffe ich)!

Und wir können alle davon ausgehen, dass Dein Form-Aufruf in einem try..finally Block steht?!

Tut er (noch) nicht! Ich habe es noch nicht hinbekommen einen Fehler zu bekommen !

Gruß und schönes Fest Bernhard

Danke, Dir auch
Heik