发信人: 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]
|
|