Komponente in den Design-Modus setzen

[jfheins]

Also ich habe einen neue Klasse von TWincontrol abgeleitet, und erstmal nur den konstruktor überschrieben ... der sieht jetzt so aus:

Delphi-Quellcode:

constructor TDesignKompo.Create(AOwner: TComponent);
var
  edt: TButton;
begin
  SetDesigning(True);
  SetDesignInstance(True);
  ControlStyle := ControlStyle + [csDesignInteractive];
  inherited;
  Color := clRed;
  Width := 200;
  Height := 50;

  edt := TButton.Create(Self);
  
  with edt do
  begin
    Parent := Self;
    Caption := 'Hello';
//    DesignWndProc()
  end;
end;

aber der Button ist Ganz normal klickbar und alles nur nicht im Design-Modus ...