unit1.pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
    Timer1: TTimer;
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  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.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    //定时器启动
    Timer1.Enabled := True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    //定时器关闭
    Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    //从图象列表中得到图象
    ImageList1.GetBitmap(iNo_bmp,ima_bmp);

    //把图象赋给图象按钮
    BitBtn1.Glyph := ima_bmp;

    //图象按钮图象刷新
    BitBtn1.Repaint;

    //改变图象列表中图象的索引号
    if iNo_bmp < ImageList1.Count-1 then
        iNo_bmp := iNo_bmp + 1
    else
    //当图象取到最后一个时，
    //索引号重置到开头的0，
    //重新取图象
        iNo_bmp := 0;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    //图象索引号置0，表示从头开始取图象
    iNo_bmp := 0;

    //生成图象对象
    ima_bmp := TBitMap.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    //释放工程开始时创建的图象对象
    ima_bmp.FreeImage;
end;

end.