窗体最小化后,发送哪个消息使其回复原状?
解决方案 »
- TcilentDataSet 使用
- 问个多国语言的显示问题
- 求助:dxdbgrid编辑日期类型出错
- 打算在武汉找一份delphi开发的工作,那位朋友公司招人呀?(顶者有分)
- 找一本以DELPHI语言为基础编写的《WINDOWS程序设计》书
- 如何获取SqlServer2000查询分析器,查询记录时所用时间。
- 在线急等:access数据库,delphi下如何导出到.txt文件
- 关于全局HotKey的问题,怎么不响应我啊?
- 如何编程序得到SQL Server的安装目录?
- 一个关于Query的问题,请大家帮帮忙.急,在线等待!!!
- ActionMainMenuBar和ActionManager的使用
- 急!!关于D7中的Indy控件问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
procedure WMSysCommand(var msg: TMessage);message WM_SYSCOMMAND;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSysCommand(var msg: TMessage);
begin
if msg.WParam = SC_MINIMIZE then
Self.WindowState := wsNormal //处理状态
else
inherited;
end;end.
我是捕捉的SC_MINIMIZE消息,在消息处理中加入了
Inherited;
ShowWindow(Application.Handle, SW_HIDE);
点击托盘后执行:
ShowWindow(Application.Handle, SW_SHOWNORMAL);
这是窗体就保持在最小化状态了,必须点击以下才能恢复。该怎么办啊,发送哪个消息可以恢复窗体原状态?用PERFORM,SENDMESSAGE,POSTMESSAGE都行啊。
然后 sendmessage(application.handle,WM_SYSCOMMAND,sc_restore,0);
向窗口发送回车消息,即WM_KEYDOWN消息