dynamisches popupmenu und ereignis

**horst**

mit dem code unten fülle ich dynamisch ein popupmenü.
ich habe große probleme damit eine ereignisprozedur zur laufzeit
zuzuweisen
mit

markieren

Code:

NewItem.OnClick:=button5click;

weise ich allen items die gleiche prozedure zu.
die ereignisse müssen auch dynamisch bleiben,
kann man dafür auch die ereignisse aus einer textdatei hinzuladen?

markieren

Code:

			procedure TForm1.Button3Click(Sender: TObject);

var NewItem: TMenuItem;

  i: integer;

  f: textfile;

  zeile,s: string;

begin;

  AssignFile(f, 'c:\text.txt'); 

{$I-}

  Reset(f); // Datei aus der gelesen wird

{$I+}

  if ioResult <> 0 then halt;

   zeile := '';

  while not eof(f) do

  begin

    readln(f, zeile);

    NewItem := TMenuItem.Create(Self);

    NewItem.Caption := (Zeile);

     //NewItem.OnClick := GenericReopenClick;

    popmnuTrayIcon.Items.Add(NewItem);

  end;

  closeFile(f);

end;

grüße horst

dynamisches popupmenu und ereignis

dynamisches popupmenu und ereignis

Forumregeln