delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(九)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(九) p; Label1: TLabel;
    Label3: TLabel;
    e_oldpass: TEdit;
    e_newpass: TEdit;
    e_passok: TEdit;
    b_ok: TMoveImgBtn;
    blabel_ok: TLabelBtn;
    b_exit: TMoveImgBtn;
    blabel_exit: TLabelBtn;
    procedure imgMinButtonClick(Sender: TObject);
    procedure imgSizeButtonClick(Sender: TObject);
    procedure imgCloseButtonClick(Sender: TObject);
    procedure imgCaptionMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgCaptionMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure imgSysIconMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure popSystemMenuPopup(Sender: TObject);
    procedure N_SizeClick(Sender: TObject);
    procedure N_MoveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure b_okClick(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
    canmove:boolean;
    curPoint:TPoint;
    oldPoint:TPoint;
    Canvas:TCanvas;
protected
    procedure CreateParams(var Params:TCreateParams);override;
    procedure WMActivate(var Msg:TWMACTIVATE); message WM_ACTIVATE;
public
    { Public declarations }
end;

var
frm_passedit: Tfrm_passedit;

implementation

uses publicvar, long, datam;

{$R *.dfm}

procedure Tfrm_passedit.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
if BorderStyle<>bsNone then
Params.Style :=WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;

procedure Tfrm_passedit.imgMinButtonClick(Sender: TObject);
begin
if Application.MainForm =self then
Application.Minimize
else
DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure Tfrm_passedit.imgSizeButtonClick(Sender: TObject);
begin
if self.WindowState = wsNormal then
begin
    DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
    imgSizeButton.Picture :=imgRestoreButton.Picture;
end
else
begin
    DefWindowProc(Ha

首页上一页 6 7 8 9 10 11 12 下一页尾页 9/12/12

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(九)由毕业论文网（www.huoyuandh.com）会员上传。