Hi,
Ich weiss, Thema schon gelöst.
Aber zu deiner Frage: Geht das Kürzer? (Falls mal Komponenten sowas nicht von alleine machen)
Ich würde es so machen: Es fällt ja auf das in jedem Codeblock immer der Sender derjenige ist der auf true steht, alle anderen werden auf false gesetzt.
Hmmm, mach das doch erstmal mit allen, auch dem Sender (auf false setzen) und setz dann nur den Sender auf true:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure THauptFrm.AllButtonClick(Sender: TObject);
begin
SB_Button1.Down := false;
SB_Button2.Down := false;
SB_Button3.Down := false;
SB_Button4.Down := false;
SB_Button5.Down := false;
SB_Button6.Down := false;
TSpeedButton(Sender).Down := true;
end; |
und diesen Eventhandler allen Speedbuttons zuweisen.
Man setzt zwar den Sender überflüssigerweise auch erstmal auf fals, aber das sollte zu verschmerzen sein und hier machens die Buttons ja schon selber
Catweasel
Pommes werden schneller fertig wenn man sie vor dem Frittieren einige Minuten in siedendes Fett legt.
Frühlingsrolle
