请问一下,如何获取FORM的最大化消息?? 也就是说,我想做一个FORM,使各子窗体在最大化时不能超过主窗体上的工作区间,这个需要截获系统的最大化消息,请问如何用代码实现???或者有没有更好的方法????请回复!!!!!谢谢各位! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 截获WM_SYSCOMMAND消息,当wParam为SC_MAXIMIZE时就是最大化! type TForm1 = class(TForm) private { Private declarations } public procedure WMSYSCOMMAND(var message: TMessage); message WM_SYSCOMMAND; { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMSYSCOMMAND(var message: TMessage);begin if message.WParam = SC_MAXIMIZE then //Do something else inherited;end;end. 你要是用的MDI做,子窗体最大化就不会超过主窗体。一般的窗口肯定会的。不过采用上面的做法就可以了 这个……你动态设定Form1.Constraints.MaxHeight、Form1.Constraints.MaxWidth不行吗?截获WM_SYSCOMMAND的SC_MAXIMIZE消息当然可以,但若是双击标题栏放大怎么办? 同意楼上的,有意外发生。还是设置Form1.Constraints.MaxHeight、Form1.Constraints.MaxWidth 请教SQL语句,在线都来看 一套完整的个人所得税管理系统(分企业端、税务端)。 bintohex函数使用中的问题 怎么在Delphi里调用VC++做的DLL里的导出类? 谁帮我解决这个问题我多少分都给(对高手来说是小儿科 )<传奇二> 有关安装程序 全屏显示窗体,并自动隐藏任务栏? 删除.exe程序 在D5中,怎样使用AdoStoredProc? delphi 5企业版,TDataSetProvider无法在类型库中注册?... sql在dephi中的使用问题 高级字符串问题
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMSYSCOMMAND(var message: TMessage); message WM_SYSCOMMAND;
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMSYSCOMMAND(var message: TMessage);
begin
if message.WParam = SC_MAXIMIZE then
//Do something
else
inherited;
end;end.
还是设置Form1.Constraints.MaxHeight、Form1.Constraints.MaxWidth