Eigene Kompo: Zur Designzeit bemalen

[negaH]

Delphi-Quellcode:

type
  TMyPanel = TGraphicPanel
  protected
    procedure Paint; override;
  end;

procedure TMyPanel.Paint; 
begin
  inherited Paint;
  if csDesigning in ComponentState then
    Canvas.TextOut(0, 0, 'Designstate');
end;

Müsste so eigentlich funktionieren.

Gruß Hagen