谁能告诉我,窗口在最大化时,发了什么消息???
解决方案 »
- idtcpsrever discnnect 后是否释放资源
- 问个比较简单的问题,还望大家多多指教!
- DateTimePicker 的奇怪问题???
- 请问不影响窗口上的鼠标,可以模拟鼠标操作吗?
- corba的idl中如何定义widestring类型?
- MIDAS中服务端线程模型大讨论!处理三层结构中最重要的问题。
- InstallShield自动改变默认路经!
- 请问各位老师delphi 如何实现对 MS SQL SERVER数据
- Crystal 和 Delphi集成的问题
- 有一字符串'xs458-2002-12-25-001',怎样能截取最后3个字符(001)呢?
- 我想在win98下读c盘的boot扇,为什么会不对
- 仓库台帐!!!!!!!
怎样只拦截最大化的消息呢???
如
type
TForm1 = class(TForm)
Button1: TButton;
private
procedure WMSysCommand(var msg:TWMSysCommand);message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;implementation{$R *.dfm}
procedure TForm1.WMSysCommand(var msg:TWMSysCommand);
begin
//SC_MAXIMIZED 最大化
//SC_RESTORE 恢复
if (Msg.CmdType=SC_MAXIMIZE) or (Msg.CmdType=SC_RESTORE) THEN
......
END;
showmessage('maximized')
if isiconic(handle) then
showmessage('minimized')