Aufrufer feststellen

[Mokus]

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