如何让程序窗体最小化到屏幕的右下方而不是左下方..笨鸟求教...

[紫色田园]

如何让程序窗体最小化到屏幕的右下方而不是左下方..笨鸟求教...

[mengjj]

做個拖盤

[zhengji]

呵呵，按常人习惯：屏幕左上角最易受关注，而右下角则最不引人注意。

窗口？楼主说的子窗口吧？

[wanngshj]

//制作托盘图标
MyIconData.cbSize :=sizeof(TNOTIFYICONDATA);
MyIconData.Wnd :=handle;
MyIconData.uID :=1;
MyIconData.uFlags :=7;
MyIconData.uCallbackMessage :=WM_USER+100;
MyIconData.hIcon :=Application.Icon.Handle ;{用自己的icon}
TempStr:=Application.Title;
StrCopy(MyIconData.szTip,PChar(TempStr));
Shell_NotifyIcon(NIM_ADD,@MyIconData);

//扑捉最小化事件
procedure TFormMain.WMSysMin(var Msg: TWMSYSCOMMAND);

begin
if (Msg.CmdType =61472) then
begin
Application.Minimize;
Hide;
Inherited;//调用先前的处理函数
end
else
Inherited;
end;

[luckyboyforever]

mark一下