Menü zur Laufzeit erstellen

[Ca3dEsnox]

Tach,
ich hab folgendes Problem: In einem Programm an dem ich arbeite werden zur Laufzeit neue Menüpunkte erzeugt. Wie fange kann ich ein OnClick Ereignis bei diesen Menüpunkten abfangen?

[mkinzler]

Heinfach nach erzeugen die Event-Properties setzten.

[c113plpbr]

Zitat:

Zitat von mkinzler

Heinfach nach erzeugen die Event-Properties setzten.

dabei wird es nur ein kleines problem geben:
wenn man das tut, über die einzig mir bekannte methode:

Delphi-Quellcode:

  @menuitem.OnClick := @MenuItemClick;

Bekommt man leider keinen Sender mitgeliefert. Also müsste er für jedes MenuItem eine eigene Procedure anlegen -> schlecht ... aber dazu, wie man das "richtig" realisiert fällt mir leider grad nix ein ... ^^

ciao, Philipp

[mkinzler]

Warum

Zitat:

@menuitem.OnClick := @MenuItemClick;

Ich würde es so machen:

Delphi-Quellcode:

form.menuclick( sender: TObject);
begin

end;

menuitem.onClick = menuclick;

[c113plpbr]

Zitat:

Zitat von mkinzler

Ich würde es so machen

oops ... das hab ich vergessen ;) (also das ganze in der form-klasse zu reggen)

ciao, Philipp

[mkinzler]

Habs ausprobiert. Funktioniert!

[Ca3dEsnox]

Jo funktioniert. danke.
Aber wenn ich mehrere Menuitems erstelle, die dann die gleiche prozedur aufrufen, woher weiß ich denn auf welchen eintrag geklickt wurde, um darauf reagieren zu können?

[Hawkeye219]

Der wird dir doch als Sender übergeben:

Delphi-Quellcode:

procedure TForm1.MenuClick (Sender: TObject);
begin
  ShowMessage ((Sender as TMenuItem).Caption);
end;

Gruß Hawkeye