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 ...