发信人: panyuhua()
整理人: (2000-12-05 19:05:37), 站内信件
|
【 在 zeroxy (zeroxy) 的大作中提到: 】
private
procedure WMGetMinMaxInfo(var message:TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
implementation
procedure WMGetMinMaxInfo(...);
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.x:=200;//max width
ptMaxSize.y:=200;//max height
ptMaxPosition.x:=100;//position of left corner
ptMaxPosition.y:=100;//position of left corner
end;
Message.result:=0;
inherited;
end;
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.132.115.164]
|
|