请问最小化后的操作怎么实现(只有这么多分了,谢谢!) ( 积分: 56 )

  • 主题发起人 主题发起人 yyyxxue
  • 开始时间 开始时间
Y

yyyxxue

Unregistered / Unconfirmed
GUEST, unregistred user!
请问最小化后的操作怎么实现:这里是每当打开的窗体最小化时,都自动进行其他的某个操作:如显示messagebox。谢谢![:)]
 
请问最小化后的操作怎么实现:这里是每当打开的窗体最小化时,都自动进行其他的某个操作:如显示messagebox。谢谢![:)]
 
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMinimize:=myonmin;//定义最小化消息
end;
procedure tform1.myonmin(sender:tobject);
begin
showmessage('最小化啦!');
end;
 
to caoweizhong123,
我要的是每当窗体最小化时,自动的操作,如自动跳出messagebox.
还有当窗体(没有打开)处于托盘位置,有消息来时自动弹出messagebox(窗体打开时不需要messagebox提示)。多谢!!
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部