Hi Himitsu,
Schau dir einmal bitte meine Methode an, wo ich diese erstelle.
mit
if Sender = PaintBox1
komm ich leider nicht weit, denn alle Paintboxen heißen ja gleich & es könnten theoretisch unendlich sein.
( kommt drauf an wie schlau der anwender ist ,) )
d.h.
Delphi-Quellcode:
IF Sender.ClassName = 'TPaintbox' then
begin
// DInge tun mit dem Pointer des Objektes
end
Also ich bräuchte den Pointer dieses Objektes und keine Abfrage ob es dies ist
da ich dinge tun möchte wie
Variable := APaintBox.PopupMenu.Items[i].Tag; // APaitnbox ist mein Object was übergeben werden sollte