Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
4.093 Beiträge
 
Delphi 12 Athens
 
#17

AW: Anfängerfrage eigene TLabel-Komponente

  Alt 25. Jun 2018, 07:25
Bin nicht ganz sicher was du erreichen möchtest, aber statt eigener MotifyEvents sollte man die Enter/Exit Funktionen überschreiben, und darin die und darin die existierenden NotifyEevnts aufrufen.

Delphi-Quellcode:
    procedure DoEnter; override;
    procedure DoExit; override;
...

procedure TMyLabel.DoEnter;
begin
    IrgendwelcheOptionenVorbereiten;

    if Assigned(FOnEnter) then // Wenn man in TMyLabel darauf zugreifen kann
      FOnEnter(Self);

  inherited; // das wird aber eigentlich schon in inherited so ähnlich gemacht ...
end;
  Mit Zitat antworten Zitat