Hi Hansa,
ich habe Doenter überschrieben und es klappt alles.
Delphi-Quellcode:
procedure TBaseSeyControl.DoEnter;
begin
Selected := True;
inherited DoEnter;
end;
procedure TBaseSeyControl.DoExit;
begin
Selected := False;
inherited DoExit;
end;
Das Zeichnen mach ich aber im Paint!!! Ich zeichne einen Rahmen um die Compo bei select und und bei DoExit wird bei mir der Rahmen gelöscht. Kein Problem.
Selected ist bei mir:
Delphi-Quellcode:
property Selected : Boolean read FSelected write SetSelected;
procedure TBaseSeyControl.SetSelected(const Value: Boolean);
begin
FSelected := Value;
IF FSelected then
FFrameColor := clBlue
else
FFrameColor := clBlack;
Invalidate;
end;
Gruß oki