Delphi-PRAXiS - Delphi Wie Buttongroup benutzen?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Wie Buttongroup benutzen? (https://www.delphipraxis.net/111570-wie-buttongroup-benutzen.html)

Wie Buttongroup benutzen?

Hallo!

Ich wollte mal fragen, ob jemand weiß wie man "Buttongroup" benutzt. Ich hab mir so eins erstellt um eine combobox zu ersetzen aber ich schaffe es einfach nicht herauszufinden, welche von meinen Buttons gedrückt wurde (in der Buttongroup). OnClick und OnButtonClick Events liefern einfach kein Itemindex zurück bzw. immer -1.
Kennt sich da jemand aus??

mfg
gutz

Re: Wie Buttongroup benutzen?

Hab jetzt selbst herrausgefunden wie man es benutzen könnte bzw. wie man den Itemindex bekommt und da es die erste Antwort bei Google mit dem Begriff "Buttongroup +Delphi" ist antworte ich mal selber drauf, vielleicht hilfts irgendwann jemandem :-).

Also zuerst deklariert man 2 globale integer variablen (als "private" am besten) x1 und y1. Danach kann man mit der Prozedur

Delphi-Quellcode:

			procedure TForm4.ButtonGroup1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

Begin

 x1:=x;

 y1:=y;

end;

die Mausposition bekommen. Jetzt kann man ganz leicht mit buttongroup1.IndexOfButtonAt(x:integer;yInteger) herausfinden, auf welchen Knopf gedrückt wurde.

Delphi-Quellcode:

Shwomessage(InttoStr(buttongroup1.IndexOfButtonAt(x1,y1)));

so hab ich mal getestet und es gab immer den richtigen index zurück.