onclick für dynamisch erzeugtes tmenuitem ?

[agm65]

moin freunde..
wie erstelle ich ein onclick event für meine dynamisch erzeugten tmenuitems ?

Delphi-Quellcode:

    BannerList[i] := tmenuitem.Create(PopupBanner);
    BannerList[i].Caption := MainDataModule.MainOpenQuery.FieldValues['name'];
    PopupBanner.Items.Add(BannerList[i]);
    inc(i);

eine ein event, was dann zB sagt if menuitemindex = 1 then ->

danke euch

[mkinzler]

Delphi-Quellcode:

BannerList[i].onClick := <Methode>;

[s-off]

Hallo,

in meinem ersten Beitrag in der Delphi-PRAXIS habe ich dazu mal etwas geschrieben - vielleicht hilft's ;)

[agm65]

kannste du mir noch nen bsp geben wie diese methode auszusehen hat ? danke dir . .!

[Aurelius]

Als Methode setzt du imho einfach einen Prozedurnamen mit den entsprechenden Paramerten, welche du vorher im Code schon erzeugt hast

Delphi-Quellcode:

procedure Mache;
begin
...
end;

procedure Hinzufügen;
begin
...
BannerList[i].onClick := Mache;
...
end;

[Muetze1]

Das ist ja nichtmal eine Methode in deinem Beispiel...

Delphi-Quellcode:

procedure TDeineKlasse.Mache(Sender: TObject);
begin
...
end;

procedure TDeineKlasse.Hinzufuegen;
begin
...
BannerList[i].onClick := Mache;
...
end;

OnClick ist ein TNotifyEvent, somit wird nur Sender als Parameter benötigt.

[Aurelius]

Natürlich hast du recht, aber ich habs auch nur fix hingeschludert. :D :oops:

[OldGrumpy]

Zitat:

Zitat von xX0815Xx

aber ich habs auch nur fix hingeschludert. :D :oops:

Soso, und das soll jetzt eine Entschuldigung sein? :mrgreen: :wiejetzt:

[agm65]

danke euch ! es geht °!