[Typograph]

procedure TEq.EqOnOffbutClick(Sender: TObject);

Const

Cap : array[0..1] Of String =('Off',On');

begin

TsSpeedButton(Sender).Down := Not TsSpeedButton(Sender).Down

TsSpeedButton(Sender).Caption := Cap[TsSpeedButton(Sender).Down]

end;

Thats it….

[Typograph]

1. Put a SpeedButton on the form

2. Set Property GroupIndex to a value higher than 0

3. Set allowUp to TRUE

In Code

TsSpeedButton(Sander).Down := Not TsSpeedButton(Sander).Down

[Author]

Posts