Изменение компонентов на форме

← →
GENA (2003-07-04 01:38) [0]

HELP!!! Уже битый час борюсь с такой проблемой:у меня на форме в два ряда по три Мемки; приизменение размеров формы творится полный бред; что я только не делал ничего не получается. Сил больше нет, может кто-нибудь поможет. Заранее спасибо все откликнувшимся.

← →
Спрашивающий_ (2003-07-04 01:50) [1]

А что творится то мемки плясать начинают что ли? Или петь?
Ты опиши поведение компанентов.

← →
Klavishnik © (2003-07-04 01:59) [2]

хотелесь бы чтоб они симметрично изменялись вместе с формой. соблюдалась пропорция

← →
Спрашивающий_ (2003-07-04 02:55) [3]

Непонятно кто вопрос задает или GENA (04.07.03 01:38)
или Klavishnik © (04.07.03 01:59)
Чтобы изменить компаненты симметрично отностительно размеров
формы надо их маштабировать по отношению к этим размерам, что то типа такого
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Memo1.Top:=X;
Memo2.Top:=Y;
Memo3.Top:=Z;

Memo1.Top:=X+NewHeight div A;
Memo2.Top:=Y+NewHeight div B;
Memo3.Top:=Z+NewHeight div C;

end;

Спрашивающий_ (04.07.03 02:55), А почему вы предлагаете писать в CanResize? По-моему, на OnResize логичнее.

Добавь еще:
Aditional ---> Splitter1, Splitter2

Memo3.Align:=alBottom;
Splitter2.Align:=alBottom;

Memo2.Align:=alRight;
Splitter1.Align:=alRight;

Memo1.Align:=alClient;

и получишь следующее:
|---|---|
| | |
|---|---|
| |
| |
|-------|

Наслаждайся :о), если это имелось введу :о)

Изменение компонентов на форме Найти похожие ветки