Einzelnen Beitrag anzeigen

Benutzerbild von Mokus
Mokus

Registriert seit: 24. Sep 2013
165 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Aufrufer feststellen

  Alt 8. Okt 2014, 14:31
Delphi-Version: XE2
Mahlzeit,

ich habe noch einmal eine frage.

ich habe i verschiedene Paintboxen, welche dynamisch im Quellcode erstellt werden, also keine festen Komponenten.
Diese sollen aber alle das gleiche Zeichnen.

Delphi-Quellcode:
var
  Form: TTFormWithSave;
  SBPaintBox: TPaintBox;
begin
  Form := TTFormWithSave.CreateNew(Self);
  SBPaintBox := TPaintBox.Create(Form);
  SBPaintBox.Parent := Form;
  SBPaintBox.Align := alClient;
  SBPaintBox.OnPaint := pbSBILDPaint;

  Form.Show;

end;

DIe Methode pbSBILDPaint

Delphi-Quellcode:
begin
  Self.SBILDPaint(Sender,PaintBox);
end;

so der 2 Parameter ist ein Pseudocode Parameter. Ich würde den Aufrufer mit übergeben.
Kann ich daher herrausfinden welches OBJEKT mich aufgerufen hat ?

Im Debuger stand Sender.Classname = NIcht verfügbarer wert
daher weiß ich nicht was es genau für ein Objekt ist.


Kann wer mir weiter helfen ?


Danke im VOrraus
Markus
es gibt nur 10 arten von menschen !
die die binär verstehen und die die nicht. !
  Mit Zitat antworten Zitat