new.item.Onclick verzweiflung

[toms]

Möglichkeit (od. über andere Variable)

Delphi-Quellcode:

..
while not bilder.eof do
  begin
   ..
    newItem.onClick:= bilderklick;
    NewItem.Hint := weg;
   ..
  end;

Delphi-Quellcode:

procedure TForm1.bilderklick(sender: TObject);
...
 weg := TMenuItem(Sender).Hint