可不可以像DELPHI一样,当一个FORM最大化时,不会把main form挡住. 發表人 - jesselian 於 2004/04/07 20:08:19

Hi jesselian try this:

private
    { Private declarations }
    procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);  message WM_GETMINMAXINFO;        procedure TForm2.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
begin
   inherited;
   with msg.MinMaxInfo^.ptMaxPosition do begin
        Y := TForm(Owner).BoundsRect.Bottom;
   end;
end;    

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

请问可否给个例子看看,不胜感激

不好意思, 請問錯誤訊息為何. 我是使用普通的Normal Form, 這一段是寫在Form2, Form1當主Form, 你可以將Form1拉的扁扁的, Form2若最大化時, 他的頂端會貼在Form1的尾端. 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

"Unsatified forward or external declaration" Any suggestion? 还有一点 "TForm(Owner)" 为什么要用这儿?FORM1 应该不是FORM2的owner啊? 發表人 - jesselian 於 2004/04/07 22:42:34

谢谢你,问题解决了. TForm(Owner) 替换为 MAINFORM:)