TCategoryButtons extern Klick simulieren

[hes]

Hallo Zusammen,

Wie kann man bei den TCategoryButtons einen externen Click simulieren, also wie wenn man den Button mit der Maus drückt um es aus einer Funktion anzuwählen/umzuschalten.

Unter ...\Samples\Object Pascal\VCL findet man das "SplitView" Beispiel. Wenn man den Style auf einen anderen als Windows wechselt sieht man schön wie der gedrückte Button hinterlegt wird.

Leider habe ich es bis jetzt nicht geschafft das Problem alleine zu lösen. Weis jemand Rat?

[peterbelow]

Naja, die Items in der Liste (TButtonItem) haben eine Eigenschaft Bounds, die Position und Grösse des "Buttons" angibt, vermutlich in Client-Koordinaten der TCategoryButton-Komponente. Mit dessen ClientToScreen-Methode könnte man das in Screen-Koordinaten umrechnen, den Mauszeiger dort positionieren (Mouse.CursorPos, hat einen Setter) und einen Mouse down simulieren (API-Funktion SendInput oder direkt entsprechende Messages (WM_LBUTTONDOWN) an die Komponente senden.

[hes]

@peterbelow

das hab ich sogar schon vor der Fragestellung hier gemacht, aber mit dem auf und zuklappen ist das so ne Sache. Funktioniert auch bedingt.

Zum Test kann man sich einen Button einbauen, wo man sieht wurde schon was gedrückt. BtnItem.OnClick auslösen geht, aber optisch passiert leider nichts. Aus dem Quellcode der Komponente bin ich noch nicht schlau geworden wo ich ansetzen muss.

procedure TSplitViewForm.Button1Click(Sender: TObject);
var
BtnItem: TButtonItem;
begin
BtnItem := catmenuitems.categories[0].items[1];

if Assigned (catMenuItems.CurrentCategory) then
ShowMessage (catMenuItems.CurrentCategory.CategoryButtons.Sele ctedItem.Caption);
end;

[himitsu]

Ich würde mal sagen du nimmst dir einen Style (deinen aktuellen) und passt dort das Jeweilige an.
Da es in andern Styles geht, muß es schließlich unterschiedliche Grafiken für geben.

Also irgendwie weiß man hier anfangs und letztendlich garnicht, worum es hier gehn soll.
* das Drücken soll man physisch sehen
* programmseitig drücken (Aktion ausführen)
* programmseitig drücken und es dabei auch so aussehen zu lassen, als wenn "gedrückt" wird
* ?

[hes]

@himitsu

Vielleicht das Beispiel von Embacadero ansehen, dort sieht man wenn man einen Button drückt wie er unterlegt wird und aktiviert bleibt. Der Button soll einfach angewählt angezeigt werden. Also ähnlich wie bei einem normalen Button ein Button.Click.