Panel wird nicht richtig gezeichnet

[oki]

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