如何定制最小化事件?(50分)

  • 主题发起人 主题发起人 facat
  • 开始时间 开始时间
F

facat

Unregistered / Unconfirmed
GUEST, unregistred user!
如何定制最小化事件?请给出具体步骤。
 
form1.WindowState:= wsMinimized;
 
public:
procedure wmminimize(var msg:tmessage);message wm_minimize;

在实现部分
procedure tform1.wmminimize(var msg:tmessage);
begin
...
end;
 
public
Procedure WMSysCommand(var msg1 : TMessage) ; message WM_SYSCOMMAND ;

procedure TForm1.WMSysCommand(var msg1: TMessage);
begin
if msg1.WParam =SC_ICON then
Showmessage(Form最小化);
end;
 
同意二楼的
 
同意 硬木花椒 的方法
 
同意ledo的
windows系统没有wm_minimize的消息
也可以用wm_size的消息
可以用Additional面板上的ApplicationEvent控件的onmessage或onminimize事件处理
 
多人接受答案了。
 
后退
顶部