Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.25;
Скачать: CL | DM;

Вниз

Align 2-х контролов на форме   Найти похожие ветки 

 
SergM   (2002-03-12 13:08) [0]

Есть форма. На ней 2 контрола ctl1 и ctl2 (типа DBGrid).
Делаю:
ctl1.Align:=alLeft
контрол выравнивается по левому краю формы на всю высоту формы
далее делаю:
ctl2.Align:=alBottom
контрол выравнивается по нижнему краю формы,
причем ctl2 "растягивается" на все ширину формы, а ctl1 умешьшается на высоту ctl2.
Хотелось бы все наоборот: ctl1 расположен слева по высоте формы, а ctl2 - внизу и по ширине равный ctl2.Width - ctl1.Width
Мне кажется что решение где-то на поверхности, но я его не вижу :(


 
Alx2 ©   (2002-03-12 13:18) [1]

Например, так:
ctl1.Align:=alLeft
Кидаешь Panel1:TPanel
Panel1.Align:=alClient;
Кидаешь на Panel1 ctl2
ctl2.Align:=alBottom

-----
Либо поработай со свойствами anchors


 
panov ©   (2002-03-12 13:19) [2]

Да, на поверхности.
На форму положить 2 панели с соответствующими свойствами:
Panel1.Align := alLeft
Panel2.Align := alClient

Положить на эти панели соответственно ctl1 и ctl2:

ctl1.Align := alClient
ctl2.Align := alBottom


 
SergM   (2002-03-12 15:52) [3]

Не совсем то, что хотел, т.к. вопрос был поставлен не полностью
Хочу получить форму наподобии Outlook Express, без левого нижнего окна, Contacts кажется называется. В варианте 1-го вопроса + 2 сплиттера, вертикального и горизонтального, почти все работает кроме того что горизонтальная нижняя область окна занимает всю ширину формы, а нужно за минусом ширины ctl1. В варианте с Panel добится корректной работы сплиттеров не могу.
Хотя, если честно, то с Delphi знаком дня три :(



Страницы: 1 вся ветка

Текущий архив: 2002.03.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-80572
Andrey Peryazev
2002-03-10 09:28
2002.03.25
как перевести текст с английской раскладки на русскую или наоборот?


3-80410
EAlexander
2002-02-26 12:56
2002.03.25
DOA & FastReport


7-80707
LORN
2001-12-19 22:13
2002.03.25
Есть ли у кого - готовая прога ФОРМАТИРОВАНИЕ ДИСКЕТ?


1-80542
Bonus
2002-03-07 23:34
2002.03.25
QuickReport, TCompositeReport


1-80480
Lenidus
2002-03-08 00:53
2002.03.25
Как узнать что мышь вошла/вышла с компонента, если у этого компонента нет события OnMouseMove?