//如下,注意,我是在form1的button1的单击事件中进行form2.show的.<br>unit Unit2;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br><br>type<br> TForm2 = class(TForm)<br> private<br> { Private declarations }<br> Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND ;<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form2: TForm2;<br><br>implementation<br><br>{$R *.DFM}<br><br>Procedure TForm2.WMSysCommand(Var Message : TMessage) ;<br>var<br> pos:TWindowPlacement;<br>begin<br> if (Message.WParam = SC_MINIMIZE) then<br> begin<br> pos.length:=sizeof(TWINDOWPLACEMENT);<br><br> pos.ptMinPosition:=point(200,200);//这个位置就是了,你自己设置<br><br> pos.flags:=WPF_SETMINPOSITION;<br> if SetWindowPlacement(handle,@pos)=false then showmessage('fail when set');<br> end;<br> Inherited;//调用先前的处理函数<br>end ;<br>end.<br>