Einzelnen Beitrag anzeigen

josef-b

Registriert seit: 6. Jun 2004
Ort: bei Jena in Thüringen
95 Beiträge
 
Delphi 11 Alexandria
 
#1

Ausführen einer Methode bei MethodAddress

  Alt 4. Feb 2024, 10:31
Delphi-Version: 11 Alexandria
Ich habe ein Formular mit vielen sichtbaren abgeleiteten Graphic-Komponenten.

Ich habe den Namen der Komponente, weiß aber nicht genau von welchem Typ die ist.

Ich möchte diese bestimmte neu zeichnen mit "repaint" weil sich einfach nur die Farbe ändern soll.

Dazu habe ich folgenden Ansatz?, weiß aber nicht wie ich die Methode repaint dann ausführen kann.
Stehe ich da einfach nur auf dem Schlauch?


Delphi-Quellcode:
procedure TFMain.repaint_bauteil(acomp_name: string; astatus: integer);
var
  aComp: TComponent;
  aMethodAddress: Pointer;

begin

aComp := FMain.FindComponent(aComp_Name);

aMethodAddress := aComp.MethodAddress('Repaint');

if Assigned(aMethodAddress) then
  begin

  //wie jetzt hier die entsprechende Procedure 'Repaint' ausführen?
    
  end;
end;
  Mit Zitat antworten Zitat