OnClick bei dynamisch erstelltem TMenuItem

[glkgereon]

hi

ja, wie gesagt, ich erstelle dynamisch bis zu 5 TMenuItems, und will jetzt ein OnClick ereignis haben....

eins reicht mir, d.h. bei allen wird dasselbe gemacht
Es geht um einen mini-texteditor, wo die letzten dateien gespeichert werden sollen
der aufruf wird so in etwa aussehen:

Delphi-Quellcode:

RichEdit1.Lines.LoadFromFile(SaveItems[strtoint(TMenuItem(Sender).Name[Length(TMenuItem(Sender).Name)])])

also kurz: in der letzten stelle des namens steht die nummer wos abgespeichert ist....

[mirage228]

Hi,

du brauchst als erstes eine Prozedur in deiner Form, die folgende Struktur hat:

Delphi-Quellcode:

procedure TFormX.Prozedur(Sender: TObject);

Dort schreibst du deinen Code rein.

Beim dynamischen erstellen weist du diese Prozedur dem OnClick von TMenuItem zu

Delphi-Quellcode:

var
  Item: TMenuItem;
begin 
  // Item erstellen...
  Item.OnClick := Prozedur;

mfG
mirage228

[Sharky]

Hai glkbkk,

ich verstehe ich Frage noch nicht so richt.
Du brauchst Dir doch nur eine "OnClick"-Procedure zu erstellen und diese dann jedem, dynamisch erzeugten, TMenueItem zuweisen.

myMenuItem.OnClick := meinOnClickProzedure;

[glkgereon]

Oh, das geht auch mit prozeduren?

ok danke!!!

[Stevie]

Zitat:

Zitat von glkbkk

Oh, das geht auch mit prozeduren?

ok danke!!!

Aber nur, wenn es eine "procedure of object" ist! Wegen dem "versteckten" Self-Parameter.