Hallo Emil,
hat Dein Objekt ein OnMouseDown?
Dann beim Erstellen des Objektes diesem Attribut eine Methode zuweisen. Die musst Du irgendwo implementieren, wievielen Objekten Du sie letztlich zuweist, ist dabei vollkommen schnuppe.
Sowas in der Art könnte Dir helfen:
Delphi-Quellcode:
type
TfmMain = class(TForm)
...
procedure miBerichteClick(Sender: TObject);
...
private
...
implementation
...
procedure TfmMain.miBerichteClick(Sender : TObject);
Begin
If Sender Is tMenuItem Then With Sender As tMenuItem Do Begin
ShowMessage(Name + ' ' + Caption + ' ' + IntToStr(Tag));
End;
End;
...
Obj.Create(wieauchimmer);
...
// Ereignisroutine zuweisen
Obj.OnMouseDown := fmMain.miBerichteClick;
...
Stephan