窗口如何最小化????(5分)

  • 主题发起人 主题发起人 vinlin
  • 开始时间 开始时间
V

vinlin

Unregistered / Unconfirmed
GUEST, unregistred user!
问两个问题:
1:窗口用close可以关闭,那么如何最小化呢?
2:用过flatstyle(平面效果那个)控件的DFW,Titlebar的文字怎样才能左对齐啊。
要不是话,caption显示在中间,好难看啊。
 
WindowState:=wsMinimized
 
最小化全部窗口
procedure TForm1.Button1Click(Sender: TObject);
var
h:HWnd;
begin
h:=handle;
while h > 0 do
begin
if isWindowVisible(h) then
postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
h:=getnextwindow(h,GW_HWNDNEXT);
end;
end;
 
如果你是最小化模态子窗口从而使整个程序最小化,可以下载我的软件看看,有源代码
http://www16.brinkster.com/zbsfg/rich.zip(大富翁离线阅读器)
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部