Hi,
wieso wird hier :
Delphi-Quellcode:
procedure TfrmKeyTest1.PanelEnter(Sender: TObject);
begin
if (Sender is TPanel) then begin
(Sender as TPanel).Color := clSkyBlue;
Canvas.Pen.Color := clNavy; // Rahmen-Schriftfarbe
Canvas.Pen.Width := PinselBreite;
Canvas.Rectangle ((Sender as TPanel).Left-1,
(Sender as TPanel).Top-1,
(Sender as TPanel).Left + (Sender as TPanel).Width+2,
(Sender as TPanel).Top + (Sender as TPanel).Height+2);
end;
end;
das Panel gefäbt und angezeigt, die Umrandung mit dem Rectangle jedoch nicht ? Und zwar nur beim Programmstart ! Wird das Panel kurz verlassen dann wird es anschließend mit Umrandung gezeichnet.
Im FormShow steht noch das :
Delphi-Quellcode:
Panel1.Show;
Panel1.SetFocus;
Nützt aber nichts. Das PanelEnter wird übrigens auch beim Programmstart durchlaufen (Color wird da ja auch richtig gesetzt).