发信人: w_o()
整理人: teleme(2001-01-03 15:28:50), 站内信件
|
【 在 seago (草心) 的大作中提到: 】
: 即当窗口最小化时触发了什么事件,或者产生了什么消息?
窗口将响应WM_SYSCOMMAND消息,Message.CmdType=SC_MINIMIZE
想避免窗口最小化,则继承该消息响应,并在 CmcType=SC_MINIMIZE
时不做处理,例子如下:
private
procedure WMSyscommand(var Message: TWMSysCommand); message WM_SYS COMMAND;
... ...
implementation
procedure TFormXXX.WMSyscommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_MINIMIZE: ;
else inherited;
end;
end;
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.232.123]
|
|