最小化问题?(100分)

  • 主题发起人 主题发起人 penga
  • 开始时间 开始时间
P

penga

Unregistered / Unconfirmed
GUEST, unregistred user!
使用showwindow(form1.handle,sw_minimize)后,窗口最小化为一长条,位于屏幕的左下角,我想问能不能控制最小化后的位置,例如,让它位于右下角.
 
哈哈,应该是:<br>&nbsp; Application.Minimize;<br>
 
大家没有理解我的意思,我仍想使窗口成为一个长条位于桌面上,并不想使它缩到任务条上,我只是想在程序中控制它的位置。
 
//如下,注意,我是在form1的button1的单击事件中进行form2.show的.<br>unit Unit2;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br><br>type<br>&nbsp; TForm2 = class(TForm)<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; &nbsp; &nbsp;Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND ;<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form2: TForm2;<br><br>implementation<br><br>{$R *.DFM}<br><br>Procedure TForm2.WMSysCommand(Var Message : TMessage) ;<br>var<br>&nbsp; pos:TWindowPlacement;<br>begin<br>&nbsp; if (Message.WParam = SC_MINIMIZE) then<br>&nbsp; begin<br>&nbsp; &nbsp; pos.length:=sizeof(TWINDOWPLACEMENT);<br><br>&nbsp; &nbsp; pos.ptMinPosition:=point(200,200);//这个位置就是了,你自己设置<br><br>&nbsp; &nbsp; pos.flags:=WPF_SETMINPOSITION;<br>&nbsp; &nbsp; if SetWindowPlacement(handle,@pos)=false then showmessage('fail when set');<br>&nbsp; end;<br>&nbsp; Inherited;//调用先前的处理函数<br>end ;<br>end.<br>
 
:(<br>是我没看清题。 &nbsp;哇.....
 
Shell_NotifyIcon();<br>最小化时生成系统菜单,前面已经讲过了
 
amo说的应该就是了:-)
 
接受答案了.
 
那有谁知道:怎么知道一个最小化图体的位置和大小(高和宽)?
 

Similar threads

D
回复
0
查看
937
DelphiTeacher的专栏
D
D
回复
0
查看
892
DelphiTeacher的专栏
D
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
923
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部