Wie erfährt aufrufende Klasse Ergebnis der Ausführung?

[Marco Steinebach]

Hallo zusammen,
sorry für den etwas bescheuerten Betreff.
Folgendes:
Mein Hauptprogramm ruft ein Menü auf:

Delphi-Quellcode:

with TMenueklasse.Create (self) do
  try
    ShowModal;
  finally
    free;
  End;

Wie kann ich es lösen, daß die aufrufende Klasse erfährt, welche Menüauswahl getroffen wurde?
Klar, mit einer globalen Variablen. Aber gibt's noch was, sagen wir, feineres?
Viele Grüße
Marco

[Neutral General]

Hi,

Eventuell eine property/Variable für deine Klasse TMenueklasse, die du nach ShowModal liest.

[Marco Steinebach]

Hallo,
oh Mann, manchmal sieht man den Wald vor lauter Bäumen nicht.
Joa, genau so.
Vielen herzlichen Dank!
Marco

[Reinhard Kern]

Zitat von Marco Steinebach:

Wie kann ich es lösen, daß die aufrufende Klasse erfährt, welche Menüauswahl getroffen wurde?
Klar, mit einer globalen Variablen. Aber gibt's noch was, sagen wir, feineres?

Hallo,

ehrlich gesagt verstehe ich die Frage nicht: ShowModal liefert doch ein Ergebnis (ModalResult):

Delphi-Quellcode:

with TMenueklasse.Create (self) do
  try
    ShowResult := ShowModal;
  finally
    free;
  End;

?? Gruss Reinhard

[Marco Steinebach]

Hallo Reinhard,
war ein bißchen unglücklich formuliert. Der ShowModalwert ist klar, aber da meine aufgerufene Klasse ein Menü ist, muß der User ja irgend einen Menüpunkt auswählen. Da aber die Menüklasse nichts von den Eigenschaften der, sagen wir, Hauptklasse weiß, muß der Wert, der als Menüauswahl getroffen wurd, zurückgegeben werden.
Und ich hab mir einen gehampelt, , statt auf das sinnigste zu kommen.
Viele Grüße
Marco