怎样将除本窗体之外的所有windows窗体最小化？(50分)

yanyuwuhen · 2001-12-27

我是这样做的：        1.获得所有窗体句柄        2.postmessage()        3.在自身窗体中截获WM_SYSCOMMAND消息，处理最小化事件。    1.2实现正常，所有的窗体都最小化了，而且3中也接收到了的最消化消息，但我的窗体 还是被最小化了！请各位高手帮帮忙，谢谢！ //************************************************************************* unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     CheckBox1: TCheckBox;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }    procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;   end; var   Form1: TForm1;   flagMin:boolean; implementation {$R *.dfm} procedure MinAllForms; var   hw:HWnd; begin   hw:=Form1.handle;   while hw>0 do   begin     if IsWindowVisible(hw) then     Postmessage(hw,WM_SYSCOMMAND,SC_MINIMIZE,0);     hw:=GetnextWindow(hw,GW_HWNDNEXT);   end; end; procedure TForm1.WMSysCommand(var Msg: TMessage); begin   case Msg.WParam of     SC_MINIMIZE: showmessage('Min');     else inherited;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin    MinAllForms; end; end.

天真 · 2001-12-27

根本没有处理呀！ procedure TForm1.WMSysCommand(var Msg: TMessage); begin   case Msg.WParam of     SC_MINIMIZE:     begin     showmessage('Min');     msg:=0;     end;     else inherited;   end; end;

zhukewen · 2001-12-27

别发给自己窗口不就得了？ procedure MinAllForms; var   hw:HWnd; begin   hw:=Form1.handle;   while hw>0 do   begin     if IsWindowVisible(hw) [red]and (hw <>Form1.Handle)[/red] then     Postmessage(hw,WM_SYSCOMMAND,SC_MINIMIZE,0);     hw:=GetnextWindow(hw,GW_HWNDNEXT);   end; end;

yanyuwuhen · 2001-12-27

to zhukewen   我试过你的这种方法，但是仍然被最小化了。 to 天真   我不太清楚消息的机制，如果自身定义的消息不处理不行么（相当于接到最小化消息之后什么也不做）？   而且我加过msg.result:=-1;也不行；   postmessage是不等待返回的。

sun77wind · 2001-12-27

方法不是很好，但能解决问题。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Button1: TButton;     CheckBox1: TCheckBox;     Timer1: TTimer;     procedure Button1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     ax,ay,bx,by:integer;     flagMin:boolean;     { Private declarations }   public     procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;       { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} { TForm1 } procedure MinAllForms; var   hw:HWnd; begin   hw:=Form1.handle;   while hw>0 do   begin     if IsWindowVisible(hw) then       Postmessage(hw,WM_SYSCOMMAND,SC_MINIMIZE,0);     hw:=GetnextWindow(hw,GW_HWNDNEXT);   end; end; procedure TForm1.WMSysCommand(var Msg: TMessage); begin   case Msg.WParam of     SC_MINIMIZE: ;//showmessage('Min');     else inherited;   end; end; procedure TForm1.Button1Click(Sender: TObject); begin   ax := form1.Left;   ay := form1.Top ;   bx := form1.Width;   by := form1.Height;   MinAllForms;   Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Enabled := False;   SETWINDOWPOS(Form1.handle,HWND_TOP,ax,ay,bx,by,SWP_SHOWWINDOW); end; end.

yanyuwuhen · 2001-12-27

谢谢sun77wind，这是一种办法，但是能不能从截获最小化消息的方法来做？

pcexplorer · 2001-12-27

//建立事件 procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean); begin   Case Msg.message of     WM_SYSCOMMAND:begin                     if Msg.wParam=SC_MINIMIZE then                       Handled:=true;                   end;   end; end; //在Form1的OnCreate里: Application.OnMessage:=AppOnMessage; //ok[

]

sun77wind · 2001-12-27

对了

yanyuwuhen · 2001-12-28

to pcexplorer   我将appOnmessage付给Application.OnMessage时出错？   [Error] Unit1.pas(92): Incompatible types: 'method pointer and regular procedure'   我最终的目的不仅是最小化自身之外的窗体，而且要做到可重复操作这一步；sun77wind的方 法中第一次可以，但下一次就把自己也最小化了---我再试试，也可能是我程序中的其它部分的 问题，昨天时间仓促，仅看了一下效果；   谢谢大家的指点，还请继续支招！

yanyuwuhen · 2001-12-28

sorry， sun77wind 的方法没有问题，是我自己的原因； 希望还能得到其他方法。

940801 · 2001-12-28

1。BroadcastSystemMessage WM_Syscommand to BSM_ALLCOMPONENTS， 这样就不需要一个一个的发了 2。WM_SysCommand 当 uCmdType = SC_MINIMIZE 时, wParam 没有使用，你可以设为 1 3。自己的窗口中响应 WM_SysCommand，如果 uCmdType = MINIMIZE , wParam 为 1 时 就不最小化

luan_sheng · 2001-12-28

我有一个很好的方法，而且我已经实验过了： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls, Buttons, Menus, ToolWin, ComCtrls, ImgList,   OleServer, Shell32_TLB; type      TMainForm = class(TForm);      Button1: TButton; end; function MinimizeWindow(handle:hwnd;lparam:lparam):bool;stdcall; implementation procedure TMainForm.Button1Click(Sender: TObject); begin    EnumWindows(@MiniMizeWindow,0);//列出所有窗体 end; function MinimizeWindow(handle:hwnd;lparam:lparam):bool; var     WindowTitle:array[0..255] of char; begin      if IsWindowVisible(handle) then      begin         GetWindowText(handle,WindowTitle,255);//获取窗体的标题         if WindowTitle<>'你的窗体的标题' then             PostMessage(handle,wm_syscommand,sc_minimize,0);      end;      result:=true; end; 别忘了给分啊！

yanyuwuhen · 2001-12-29

如果采用不给本窗体发送消息的办法（zhukewen,luan_sheng 用的都是这种方法），只是 判断不是form的handle和caption(一回事）是不行的，应为最小化消息还会发到project， 一样会将本窗体最小化的！这样就还需判断不是自身的project；    [?]我使用GetnextWindow(hw,GW_HWNDNEXT)中发现form1.handle的下一个句柄就是project的， 请问这种规律是固定的么？（我这里都是这样）    当然也可以判断一下是否是project的句柄，两种方法和判断form的一样； 这种不给本身发送消息的办法基本是完成了，发过消息在恢复的方法也可行；还想听听自身 截获最小化消息的方法，940801能具体谈一下么？同时也欢迎大家提出其它的方法！（贪得 无厌了一些，而且我给的分也不多，但我想，大家在这里关键是探讨问题，增进知识，并且 消息的应用场合是很多的，解决这个问题的方法也具有一定的普遍性，还请大家多多指点； 高手不要骂我呦，小弟笨了些。

luan_sheng · 2001-12-29

yanyuwuhen: 有一点忘了说明： 如果你把Application的Title和主窗体的Caption设置为同一个值，应用程序就不会关闭了！

yanyuwuhen · 2002-01-06

我还想知道一下用截获消息解决这个问题的方法； sun77wind 有你16分，luan_sheng有你14分；一起发； 如果过一段时间的仍无法得到第三种方法，就将所有的分发给你们两个。分不多，略表心意。

yanyuwuhen · 2002-01-16

谢谢大家的帮助。

怎样将除本窗体之外的所有windows窗体最小化？(50分)

yanyuwuhen

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

zhukewen

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

sun77wind

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

sun77wind

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

940801

Unregistered / Unconfirmed

luan_sheng

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

luan_sheng

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

yanyuwuhen

Unregistered / Unconfirmed

Similar threads