I
ilovedelphi3
Unregistered / Unconfirmed
GUEST, unregistred user!
使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口(或者它的程序
编辑窗口)，当它极大时只占屏幕的一小部分，它是如何实现的呢？
小弟在网络上看到一段程序，现摘录如下：
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200
{最大化时宽度}
ptMaxSize.Y := 200
{最大化时高度}
ptMaxPosition.X := 99
{最大化时左上角横坐标}
ptMaxPosition.Y := 99
{最大化时左上角纵坐标}
end;
Message.Result := 0
{告诉Windows你改变了 minmaxinfo}
inherited
//请问这句干啥用？
end;
另外，还应该在在FORM私有声明部分加上过程声明，可惜
被我遗漏了，请高手们帮我补这一句声明。
谢谢！
编辑窗口)，当它极大时只占屏幕的一小部分，它是如何实现的呢？
小弟在网络上看到一段程序，现摘录如下：
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200
{最大化时宽度}
ptMaxSize.Y := 200
{最大化时高度}
ptMaxPosition.X := 99
{最大化时左上角横坐标}
ptMaxPosition.Y := 99
{最大化时左上角纵坐标}
end;
Message.Result := 0
{告诉Windows你改变了 minmaxinfo}
inherited
//请问这句干啥用？
end;
另外，还应该在在FORM私有声明部分加上过程声明，可惜
被我遗漏了，请高手们帮我补这一句声明。
谢谢！