Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

компоненты лезут без очереди!!! [D7, WinXP]

brat2 © (2004-07-31 12:13:00)
Я создаю свою панель в рантайме.
Цель: добавить в нее ряд компонентов в цикле. Например: рич, сплит, рич, сплит и т.д.

Однако несмотря на корядок вставки по коду, компоненты сбиваются в кучу - поля в одну, сплиты в другую.

Выравнивание (align) у всех деляю например alLeft.

Самое обидное, что в дизайнтайме все получается, но я привык писать руками.

В чем секрет ?

А еще фишка: в панель в ее конструкторе вставляю THeaderControl (Align := alTop;). Затем по событию вставляю еще панель (выравнивание то же)... Дак она лезет выше нидера - что за дела ???

GuAV (2004-07-31 20:54:00) [1]

> А еще фишка: в панель в ее конструкторе вставляю THeaderControl
> (Align := alTop;). Затем по событию вставляю еще панель
> (выравнивание то же)... Дак она лезет выше нидера - что
> за дела ???

Попробуй присвоить еще панели св-во Top:=1; .Перед заданием парента, ессно.

Sun bittern (2004-07-31 12:57:00) [2]
Все работает, код свой приведите.

var
I: Integer;
R: TRichEdit;
S: TSplitter;
begin
for I := 2 to 8 do
begin
if I mod 2 = 0 then
begin
R := TRichEdit.Create(Self);
R.Align := alLeft;
R.Parent := Panel1;
end else
begin
S := TSplitter.Create(Self);
S.Align := alLeft;
S.Parent := Panel1;
end;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »