Текущий архив: 2003.05.26;
Скачать: CL | DM;
Вниз
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. }
Так что, как написано, так и делает, т.е. изменяет размеры
родительского контрола, предполагая, что вызвана для дочернего, и надо не только изменить размер дочурки, но и подобрать полы у родителя, чтобы лишнее не свисало.
Страницы: 1 вся ветка
Текущий архив: 2003.05.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
