About Form

← →
Kirill © (2002-08-20 22:14) [0]

Возникла проблема.
Такой код вызывает изменение размера основной формы и не восстанавливается после закрытия дополнительной.
frmAb:=NewForm(frmM,"О программе").Size(300,240).CenterOnParent; frmAb.HasBorder:=false; frmAb.HasCaption:=false; frmAb.CanResize:=false; frmAb.OnMouseDown:=TOnMouse(MakeMethod(nil,@OnfrmAbClick)); frmAb.ShowModal; frmAb.Free;
В чем может быть проблема? Поясняю, она сжимается.
Все, решение нашел: надо разделить первую строку на две. Это глюк или так задуманно?

← →
Vladimir Kladov (2002-08-22 11:16) [1]

Size не работает для случая формы. Надо использовать SetSize.
Из kol.pas:
function Size( W, H: Integer ): PControl;
{* Like SetSize, but provides automatic resizing of parent control
(recursively). Especially useful for aligned controls. }

Так что, как написано, так и делает, т.е. изменяет размеры
родительского контрола, предполагая, что вызвана для дочернего, и надо не только изменить размер дочурки, но и подобрать полы у родителя, чтобы лишнее не свисало.

About Form Найти похожие ветки