Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c