SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Set SpeedButtons to down

For example, you have 2 SpeedButtons and you want to use them like buttons on toolbar. Use for this GroupIndex, Down and AllowAllUp properties of SpeedButtons.
Button1 is a usual button, which allows you to set your SpeedButtons to stick down.
And Button2 allows you to set properties of SpeedButtons as normal buttons.

procedure TForm1.Button1Click(Sender: TObject);
begin
  SpeedButton1.GroupIndex:=1;
  SpeedButton2.GroupIndex:=1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SpeedButton1.GroupIndex:=0;
  SpeedButton2.GroupIndex:=0;
  if SpeedButton1.Down=True then
  with SpeedButton1 do
  begin
    AllowAllUp:=True;
    Down:=False;
    AllowAllUp:=True;
  end;
  if SpeedButton2.Down=True then
  with SpeedButton2 do
  begin
    AllowAllUp:=True;
    Down:=False;
    AllowAllUp:=True;
  end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes