Fokusbehandlung für Komponente

[u-boot]

Meine Komponente (bisher abgeleitet von TCustomcontrol) soll mir anzeigen, ob sie den Fokus hat oder nicht. (Wahrscheinlich durch Änderung des Rahmenbreite eines Shapes). Nun meine Frage wie das geht ohne das OnEnter-Ereignis zu belegen (TButton kanns ja auch irgendwie... komme aber aus dem Quelltext alleine nicht so auf die Funktionsweise)

[theo]

Nun meine Frage wie das geht ohne das OnEnter-Ereignis zu belegen

Als Komponentenentwickler brauchst du das ja nicht. Du kannst die entsprechende Prozedur (meistens beginnend mit "Do" statt "On") überschreiben.

Code: Alles auswählen

MyCtrl=class(TCustomControl)
protected
   procedure DoEnter; override;
end;
 
implementation
 
{ myctrl }
 
procedure MyCtrl.DoEnter;
begin
  //tuwas
  inherited DoEnter;
end;