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 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:
@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:

markieren

Delphi-Quellcode:

			form.menuclick( sender: TObject);

begin

end;

menuitem.onClick = menuclick;

**c113plpbr**

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:

markieren

Delphi-Quellcode:

			procedure TForm1.MenuClick (Sender: TObject);

begin

  ShowMessage ((Sender as TMenuItem).Caption);

end;

Gruß Hawkeye

Menü zur Laufzeit erstellen

Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Re: Menü zur Laufzeit erstellen

Forumregeln

Ca3dEsnox Registriert seit: 14. Jan 2005 7 Beiträge	#1 Menü zur Laufzeit erstellen 30. Apr 2006, 19:46 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?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 19:54 Heinfach nach erzeugen die Event-Properties setzten. Markus Kinzler
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#4 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 20:18 Warum Zitat: @menuitem.OnClick := @MenuItemClick; Ich würde es so machen: markieren Delphi-Quellcode: form.menuclick( sender: TObject); begin end; menuitem.onClick = menuclick; Markus Kinzler
	Zitat

c113plpbr Registriert seit: 18. Nov 2003 Ort: localhost 674 Beiträge Delphi 2005 Professional	#5 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 20:23 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 Philipp There is never enough time to do all the nothing you want. HABENWILL
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#6 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 20:31 Habs ausprobiert. Funktioniert! Markus Kinzler
	Zitat

Ca3dEsnox Registriert seit: 14. Jan 2005 7 Beiträge	#7 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 20:45 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?
	Zitat

Hawkeye219 Registriert seit: 18. Feb 2006 Ort: Stolberg 2.227 Beiträge Delphi 2010 Professional	#8 Re: Menü zur Laufzeit erstellen 30. Apr 2006, 23:34 Der wird dir doch als Sender übergeben: markieren Delphi-Quellcode: procedure TForm1.MenuClick (Sender: TObject); begin ShowMessage ((Sender as TMenuItem).Caption); end; Gruß Hawkeye
	Zitat