Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - 2 SpeedButtons gleichzeitig DOWN?


JRegier - Sa 25.06.05 08:43
Titel: 2 SpeedButtons gleichzeitig DOWN?
Hallo, ich habe 2 SpeedButtons eine ist für Schriftstill BOLD F andere für ITALIC I
nun möchte ich dass beide auch Down sein können! Wenn die ja beide GroupIndex := 1 haben dann ist einer oder
anderer Down!

Hier Code

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure TBereich.StyleClick(Sender: TObject);
begin
    TSpeedButton(Sender).Down := not TSpeedButton(Sender).Down;
    TSpeedButton(Sender).AllowAllUp := TSpeedButton(Sender).Down;
    TSpeedButton(Sender).Down := not TSpeedButton(Sender).Down;
end;


Hier mußte ich Zeile 3 in 5 Wiederholen damit beim 1.Click er Down ist und beim 2.Click UP!
Nur das beide DOWN klappt nicht! Wie setze ich es um?


Gausi - Sa 25.06.05 08:48

...indem du einfach für beide Buttons verschiedene Groupindizes wählst?


JRegier - Sa 25.06.05 09:18

user profile iconGausi hat folgendes geschrieben:
...indem du einfach für beide Buttons verschiedene Groupindizes wählst?


Danke, hat geklappt! :D Hat ich wohl versucht bevor ich diesen Code oben geschrieben hatte aber nach dem
ich den Code wie oben hatte hab ich nicht mehr versucht verschiedene GroupIndex zu setzen!

Aber ein anderes Problem mit dem Code wie oben ist, wenn ich auf Button zum ersten mal Clicke muß ich zweimal
Clicken damit er Down ist!