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

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

← →
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;

---

← →
GuAV ©   (2004-07-31 20:54) [2]

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

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

---

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

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



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