if not (csdesigning in componentstate) then
if (msg.msg=wm_syscommand) and(factive) then
begin
if msg.wparam=sc_minimize then
begin
//设置了这个属性后,窗口最小化就不会停在任务栏了,而是停在屏幕,
//位置由setwindowplacement来决定
showwindow(application.handle,sw_hide);
setwindowlong(application.handle,gwl_exstyle ,ws_ex_toolwindow);
getwindowplacement(application.handle,@placement);
placement.flags:=wpf_setminposition;
placement.ptminposition.x:=1050;
placement.ptminposition.y:=800;
setwindowplacement(application.handle,@placement);
settray(nim_add );
end;
end;
end;
procedure tmytray.seticon(value:ticon);
begin
ficon.assign(value);
