tactionmainmenubar

[milchbrötchen]

hi,
ich habe mit hilfe von tactionmainmenubar und tactionmanager ein menu geschaffen.
unter einem der menüpunkte befinden sich nun etwa 20 verschiedene unterpunkte, die aber alle fast dieselbe procedure ausführen sollen. der unterschied zwischen diesen proceduren ist aber jediglich ein einziger integer-wert. diesen wollte ich jetzt per tag versuchen weiterzugeben. aber ich weiß nicht wie ich auf den tag des unterpunkts in der zugewiesenen procedure dieses unterpunktes zugreifen kann .

danke für eure antworten

[Hawkeye219]

Hallo,

wenn du den Unterpunkten eine gemeinsame Action zuordnest, kannst du über TAction.ActionComponent auf die auslösende Komponente zugreifen:

Delphi-Quellcode:

procedure TForm1.Action1Execute (Sender: TObject);
const
  FMT = 'event caused by %s, tag=%d';
begin
  with (Sender as TAction).ActionComponent do
    ShowMessage (Format(FMT, [ClassName, Tag]));
end;

PS: Du kannst durch die Verwendung von Klein- und Großbuchstaben die Lesbarkeit deiner Beiträge erhöhen und somit eventuell mehr Helfer finden.

Gruß Hawkeye