About Form
Kirill © (2002-08-20 22:14:00)
Возникла проблема.
Такой код вызывает изменение размера основной формы и не
восстанавливается после закрытия дополнительной.
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:00) [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. }
Так что, как написано, так и делает, т.е. изменяет размеры
родительского контрола, предполагая, что вызвана для
дочернего, и надо не только изменить размер дочурки, но и подобрать
полы у родителя, чтобы лишнее не свисало.
Наверх 
ЧАТ |
Орешник |
|
