Zitat von
nahpets:
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
Super wie du mir bei meinen problemen hilfst
Denk das kann ich genause für Move und Down verwenden lediglich das Click Event auf down und move verändern
gruss Emil