SpeedButton示例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Panel1: TPanel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  label1.Font.Name := '宋体';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  label1.Font.Name := '隶书';
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  label1.Font.Name := '黑体';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  label1.Font.Name := '楷体';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  if speedbutton5.Down then
    label1.Font.Style := label1.Font.Style + [fsBold]
  else
    label1.Font.Style := label1.Font.Style - [fsBold];
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
  if speedbutton6.Down then
    label1.Font.Style := label1.Font.Style + [fsitalic]
  else
    label1.Font.Style := label1.Font.Style - [fsitalic];
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
  if speedbutton7.Down then
    label1.Font.Style := label1.Font.Style + [fsunderline]
  else
    label1.Font.Style := label1.Font.Style - [fsunderline];
end;

end.

 

GroupIdex分组