Delphi 控制窗口显示隐藏

本文整理自网络，侵删。

 

procedure ChangeAppWindow(const Handle: THandle; const SetAppWindow, RestoreVisibility: Boolean);
var
  Style: Integer;
  WasVisible, WasIconic: Boolean;
begin
  Style := GetWindowLong(Handle, GWL_EXSTYLE);
  if (SetAppWindow and (Style and WS_EX_APPWINDOW = 0)) or (not SetAppWindow and (Style and WS_EX_APPWINDOW = WS_EX_APPWINDOW)) then
  begin

    WasVisible := IsWindowVisible(Handle);
    if WasVisible or WasIconic then
    begin
      ShowWindow(Handle, SW_HIDE);
    end
    else
    begin
        ShowWindow(Handle, SW_SHOW);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ChangeAppWindow(form1.Handle, False, False);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ChangeAppWindow(form1.Handle, True, True);
end;

 

相关阅读 >>

Delphi 利用vclzip实现分卷压缩

Delphi 中将tmemorystream转换为'string'

Delphi 中英文字符怎么按固定长度截断

Delphi最全面的dbgrid点击标题实现排序

Delphi 内进行音量控制及静音

Delphi 获取listview1鼠标所在位置的行名称

Delphi pointer 转成string

Delphi hextoint

Delphi 附加数据读取

Delphi 秒计算分钟、小时函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 控制窗口显示隐藏