unit1.pas

Delphi高级界面特效制作百例源代码,这是随书源代码部分,不知可否

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    PopupMenu1: TPopupMenu;
    bkOK1: TMenuItem;
    bkCancel1: TMenuItem;
    bkYes1: TMenuItem;
    bkNo1: TMenuItem;
    bkHelp1: TMenuItem;
    bkClose1: TMenuItem;
    bkAll1: TMenuItem;
    procedure bkOK1Click(Sender: TObject);
    procedure bkCancel1Click(Sender: TObject);
    procedure bkYes1Click(Sender: TObject);
    procedure bkNo1Click(Sender: TObject);
    procedure bkHelp1Click(Sender: TObject);
    procedure bkClose1Click(Sender: TObject);
    procedure bkAll1Click(Sender: TObject);
  private
    { Private declarations }
    //定义了两个变量
    // iNo_bmp表示当前的图象索引号
    // ima_bmp表示了一个图象TBitmap对象
    iNo_bmp : Integer;
    ima_bmp : TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bkOK1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkOK;
end;

procedure TForm1.bkCancel1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkCancel;
end;

procedure TForm1.bkYes1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkYes;
end;

procedure TForm1.bkNo1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkNo;
end;

procedure TForm1.bkHelp1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkHelp;
end;

procedure TForm1.bkClose1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkClose;
end;

procedure TForm1.bkAll1Click(Sender: TObject);
begin
     BitBtn1.Kind := bkAll;
end;

end.