请问一下,如何获取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 怎么测试网络通不通? 怎么给第三方控件加上鼠标双击 怎样精减主程序的大小。 只开通 80端口上网的电脑,怎样让他实现可以通过代理服务器连接上 SQL 服务器. 各位大哥,你们都用什么工具打包发布程序呀(我是菜鸟,请各位指点)????????? 如何把listview中的列项内容全读出来?怎么老没人回答呀? delphi7连接MYSQL5的问题?????? 请问提醒或闹钟用哪种方法最好? 请问:如何在delphi2007或以上版本上安装第三方插件EasyGrid-V6。 有关E-MAIL的主题中的怪字符 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