我自定义了一个WM_SYSCOMMAND消息的处理过程
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMANM;if msg.cmdtype and $FFF0 =SC_CLOSE then
hide
else
inherited
end;我第一次点击窗体的右上角的‘关闭’时,可以隐藏窗体,但是恢复后第二次就没有反映了,请问怎么回事?
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMANM;if msg.cmdtype and $FFF0 =SC_CLOSE then
hide
else
inherited
end;我第一次点击窗体的右上角的‘关闭’时,可以隐藏窗体,但是恢复后第二次就没有反映了,请问怎么回事?
解决方案 »
- 类似QQ伸缩隐藏窗体BUG
- 自写delphi基类(属性是packed record),继承基类之后。属性没法用,出现‘Left side cannot be assigned to’
- 怎样实现在按下鼠标时改变光标的形状?
- 初学者的问题。。。。需源码。。。
- 编程偶得:一组日期处理函数
- sqlEBOOk
- 请问大家用什么Grid,并且Xlgrid有没有用于D6的,可否“共享”一份?
- 为什么我用的delphi的help-》delphi help没有索引啊
- 我想在 sql 里动态加 order by....我private 了一个变量不行。。。。。。。。
- 有谁要买《Delphi 6 Devloper's Guide》电子版,给我发email
- 哪里有单个的好看的按钮控件?集成的编译完太大
- 在win2000中编的程序到windows xp中运行出错,请问是怎么回事?
WM_SYSCOMMANM应为WM_SYSCOMMAND
试了一下,没问题的。
//以上为语误,改为
procedure a(var msg:TWMSYSCOMMAND);message WM_SYSCOMMAND;
sendmessage(handle,WM_SYSCOMMAND,SC_MAXNIMIZED,0)
ShowWindow(Handle, SW_SHOWMAXIMIZED);
Visible := True; // 加上这句这是因为前面调用Hide时,Form的Visible变为False了,如果只调用ShowWindow(Handle, SW_SHOWMAXIMIZED);的话,因为这是系统API,并不会把Visible设为True,所以再次Hide时并不会起作用(你可以看看Form源码)。