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

Question

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

Answer 1

//制作托盘图标
  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;