| Class TForm1 (unit Speedbtn) |
TForm
Title : SpeedButton demo Function : Shows how speedbuttons can be kept down By: ing. S.P.Settels, e-mail: settels@pi.net delphi page: http://www.pi.net/~settels/delphi Solution : use the AllowAllUp property and make GroupIndex bigger than 1
| Constructors |
| Functions |
procedure SpeedButton4Click(Sender: TObject);| Properties |
| Events |
| Variables |
Label1 : TLabel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;| Constructors |
| Functions |
procedure SpeedButton4Click(Sender: TObject);| Properties |
| Events |
| Variables |
Label1 : TLabel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;