компоненты лезут без очереди!!!

← →
brat2 © (2004-07-31 12:13) [0]

Я создаю свою панель в рантайме.
Цель: добавить в нее ряд компонентов в цикле. Например: рич, сплит, рич, сплит и т.д.

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

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

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

В чем секрет ?

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

← →
Sun bittern © (2004-07-31 12:57) [1]

Все работает, код свой приведите.

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;

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

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

компоненты лезут без очереди!!! Найти похожие ветки