button.pas

Delphi basic program. Basic programing guide for delphi language. Several samples are giving.

unit Button;

interface

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

type
  TMainForm = class(TForm)
    BtDisplay: TButton;
    BitExit: TBitBtn;
    SBLeft: TSpeedButton;
    BitShow: TBitBtn;
    SBMid: TSpeedButton;
    SBRight: TSpeedButton;
    BitHide: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitExitClick(Sender: TObject);
    procedure BitShowClick(Sender: TObject);
    procedure BitHideClick(Sender: TObject);
    procedure SBLeftClick(Sender: TObject);
    procedure SBMidClick(Sender: TObject);
    procedure SBRightClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}
 //初始化各按钮的设置
procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.Caption:='按钮实例';
  MainForm.Width:=480;
  MainForm.Height:= 380;
  MainForm.Top:= 150;
  MainForm.Left:=300;  //设定窗体尺寸和大小
  //下面设置三个位图按钮的属性
  BitShow.Kind:=bkOK;
  BitShow.Caption:='显示';
  BitShow.Layout:= blGlyphLeft;
  BitShow.Default:=true;
  BitHide.Kind:=bkNo;
  BitHide.Caption:='隐藏';
  BitExit.Kind:=bkAbort;
  BitExit.Caption:='退出';
  BitExit.Cancel:=true;
  BitExit.Layout:=blGlyphRight;
  //下面设置三个加速按钮的属性
  SBLeft.visible:=false;
  SBMid.Visible:=false;
  SBRight.Visible:=false;
  BtDisplay.Visible:=false;
  SBLeft.caption:='左边';
  SBMid.Caption:='中间';
  SBRight.Caption:='右边';
  SBLeft.GroupIndex:=1;
  SBMid.GroupIndex:=1;
  SBRight.GroupIndex:=1;      //设为同一组，用于模拟单选按钮
  //下面设置普通按钮的属性。
  BtDisplay.Visible:=false;
  BtDisplay.Caption:='未选中';

end;

procedure TMainForm.BitExitClick(Sender: TObject);
begin
   close;  //退出程序
end;

//显示按钮
procedure TMainForm.BitShowClick(Sender: TObject);
begin
  SBLeft.visible:=true;
  SBMid.Visible:=true;
  SBRight.Visible:=true;
  BtDisplay.Visible:=true;
end;
//隐藏按钮
procedure TMainForm.BitHideClick(Sender: TObject);
begin
  SBLeft.visible:=false;
  SBMid.Visible:=false;
  SBRight.Visible:=false;
  BtDisplay.Visible:=false;
end;

procedure TMainForm.SBLeftClick(Sender: TObject);
begin
     BtDisplay.Caption:='选中左边';//指示那个按钮被选择。
end;

procedure TMainForm.SBMidClick(Sender: TObject);
begin
  BtDisplay.Caption:='选中中间';

end;

procedure TMainForm.SBRightClick(Sender: TObject);
begin
   BtDisplay.Caption:='选中右边';
end;

end.