Dynamische Menüeinträge

mambo · Beiträge: 76 Win XP D6 Prof

Hallo !

Ich habe folgendes Problem: Ich erstelle mir zur Laufzeit dynamisch aus einer Tabelle neue Menueinträge in meinem PopUpMenu.
Wie kann ich aber diesen neu erstellten Menueinträgen beim Ereignis OnClick eine Prozedur zuweisen???

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

while Query1.Eof = False do
begin
   NewItem := TMenuItem.Create(Self);
   NewItem.Caption := Query1.FieldByName('BESCHREIBUNG').AsString;
   NewItem.OnClick := ?????????????;
   PopUpMenu.Add(NewItem);
   Query1.Next;
end;

Danke
Heinz

AXMD · Verfasst: Do 20.02.03 09:10

Hi,

vielleicht so?

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

private
  procedure MyMenuClick(Sender: TObject);
..
procedure TForm1.MyMenuClick(Sender: TObject);
...

menuitem.OnClick := MyMenuClick;

AXMD

LCS · Verfasst: Do 20.02.03 09:13

Ja

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

mambo · Beiträge: 76 Win XP D6 Prof

Leider funktioniert das ganze so nicht!
bei

markieren

Quelltext

1:	NewItem.OnClick

muß man einen TNotifyEvent zuweisen und nicht einfach eine Prozedur.

Ich erhalte die Fehlermeldung:
Inkompatible Typen: 'TNotifyEvent' und 'procedure'

HILFE!!!

mambo · Beiträge: 76 Win XP D6 Prof

JETZT FUNKTIONIERTS !!!

Hab nur falsch zugewiesen
statt
NewItem.OnClick := MyMenuClick(NewItem);
muß man einfach
NewItem.OnClick := MyMenuClick; zuweisen

DANKE !!!!

smiegel · Verfasst: Do 20.02.03 09:42

Hallo,

der Typ ist folgendermaßen deklariert:

markieren

Quelltext

1:
2:

type
  TNotifyEvent = procedure (Sender: TObject) of object;

Dies bedeutet, Deine Ereignissprocedure muss den gleichen Typ haben:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  ...
  procedure MyMenueClick(Sender:TObject);
  ...



  ...
  NewItem.OnClick:=MyMenueClick;
  ...


procedure TForm1.MyMenueClick(Sender:TObject);
begin
  // Tue irgend etwas
end; // TForm1.MyMenueClick

Uups, dann hat sich mein Posting ja erledigt.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme