Einzelnen Beitrag anzeigen

gutz

Registriert seit: 3. Apr 2008
8 Beiträge
 
#2

Re: Wie Buttongroup benutzen?

  Alt 5. Apr 2008, 23:10
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.
Shwomessage(InttoStr(buttongroup1.IndexOfButtonAt(x1,y1))); so hab ich mal getestet und es gab immer den richtigen index zurück.
  Mit Zitat antworten Zitat