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

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