delphi點擊窗體最小化,關閉按鈕時的托盤圖標設置
判斷窗體是否按下最小化等按鈕時,可以截取鼠標按下按鈕時的消息.下面有2種方法可以做到.轉自Delphi共和國--<<如何判斷鼠標按下了窗體最小化按鈕>>:
方法一:截获 WM_SYSCOMMAND消息,看窗体是否处于最小化状态
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMM
AND;
//...
end;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var Message:TMessage);
begin
if Message.WParam = SC_ICON then //最小化了.最大化 SC_ZOOM,關閉:SC_CLOSE
begin
//form1.hide; ...
end
else
inherited;//很重要的.上次就是因為沒加這句,導致窗體不能拖動等問題
end;
方法一:截获 WM_SYSCOMMAND消息,看窗体是否处于最小化状态
type
TForm1 = class(TForm)
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMM
AND;
//...
end;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var Message:TMessage);
begin
if Message.WParam = SC_ICON then //最小化了.最大化 SC_ZOOM,關閉:SC_CLOSE
begin
//form1.hide; ...
end
else
inherited;//很重要的.上次就是因為沒加這句,導致窗體不能拖動等問題
end;
方法二,直接判断是否点了窗体非客户区的最小化按钮
type
TForm1 = class(TForm)
private
procedure Minimize(var mess:TWMNCLBUTTONDOWN);message WM_NCLBUTTON
DOWN;
//...
end;
implementation
{$R *.DFM}
procedure TForm1.Minimize(var mess:TWMNCLBUTTONDOWN);
begin
if mess.hittest=htreduce then //htreduce表示是否按了最小化按钮.關閉:HTCLOSE
begin
//Form1.hide; ...
end
else
inherited;//同樣重要
end;
其實,知道了什么時候是按下了窗體最小化等按鈕的處理,其它的就很清楚了.