UnitAbout.pas
资源名称:东之源.rar [点击查看]
上传用户:zexin0769
上传日期:2010-01-19
资源大小:443k
文件大小:1k
源码类别:
百货/超市行业
开发平台:
Delphi
- unit UnitAbout;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtCtrls;
- type
- TFormAbout = class(TForm)
- Image1: TImage;
- Image2: TImage;
- procedure Image2Click(Sender: TObject);
- procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- FormAbout: TFormAbout;
- implementation
- {$R *.dfm}
- procedure TFormAbout.Image2Click(Sender: TObject);
- begin
- Self.Close;
- end;
- procedure TFormAbout.Image1MouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
- begin
- if (ssleft in shift) then
- begin
- releasecapture;
- perform(wm_syscommand, $f012, 0);
- end;
- end;
- end.