TButton für IDE

[MechMac666]

Nun ja, es funktioniert auch soweit was ich da garade mache, aber z.B. bei Comboboxen sieht das gräßlich aus. Die haben kein OnMouseDown/Up event. Jedes Mal wenn der User das Teil zum verschieben anklickt, erscheint kurz die DropDown-Liste.

Im Grunde hätte ich gerne Objekte wie in der Delphi-IDE. Wenn man da z.B. auf eine Schaltfläche drückt, wird sie nicht sichtbar gedrückt.
Wenn man sie anklickt, erscheinen (bei mir) blaue Punkte an den Ecken zum skalieren.

Wenn ich z.B. bei einem 0815-Button versuche die skalier-Punkte mit TShape nachzubilden stelle ich fest, das ich nicht über Tbutton zeichnen kann.

Toll wären z.B. Buttons, welche ihr Design weder bei erhalten des Focus, noch bei Klick verändern. Die sollen aber weiterhin aussehen wie die Standardkompos. Schon deswegen weil die ja von OS zu OS (Xp zu Win7) verschieden aussehen.

[Bummi]

Dazu müsstest Du den CompoenentState in csDesigning bringen ....

[MechMac666]

Die Frage wäre dann, wie?

Sowas geht z.B. nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var butt:tbutton;
begin
 form1.SetDesigning(true,true);
 butt:=tbutton.Create(form1);
 //butt.parent:=panel1;
 butt.caption:='test';
 butt.Name:='testbutton';
 butt.Left:=10;
 butt.top:=10;
 //panel1.InsertComponent(butt);
 panel1.InsertControl(butt);
end;

[MechMac666]

So abwegig ist die Idee mit den Bildern gar nicht.
Ist zwar ein bisschen krank, aber es funktioniert.
Ich denke ich probiere es damit falls ich keine weiteren Infos zum SetDesigning finde.

Das gute Stück kann bisher nur TButton und TCheckBox. Weitere Objekte zu implementieren ist recht einfach.
Falls es tatsächlich jemanden interessieren sollte, ich habe ein Beispiel angehangen.