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

Вниз

не работают сплиттеры   Найти похожие ветки 

 
ekto ©   (2008-11-26 15:57) [0]

Всем добрый день!
код:
var
 i: Integer;
 Frame: TMyFrame;
 spl: TSpitter;
begin
 for i := 0 to 5 do
 begin
   Frame := TMyFrame.Create(self);
   Frame.Parent := ScrollBox1;
   Frame.Align := alTop;
   spl := TSplitter.Create(self);
   spl.Color := clRed;
   spl.Align := alTop;
   spl.Parent := ScrollBox1;
 end;
end;

TMyFrame - фрейм, есно. Так вот, все добавляется(правда сплиттер цвет менять когда желает, когда нет или поменяется цвет не по все длине - не поймешь), но! Сплиттерами я ничего раздвинуть не могу. Почему? Как сделать, чтобы заработало?


 
clickmaker ©   (2008-11-26 16:04) [1]

чтобы раздвигать, нужно, чтобы хотя бы одна панель имела алигн отличный от всех остальных
н-р, alLeft | alClient


 
ekto ©   (2008-11-26 16:21) [2]


> clickmaker ©   (26.11.08 16:04) [1]

спс, попробую, как доберусь до дельфи



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
8-1189410907
Owner
2007-09-10 11:55
2009.01.11
Проблемы со звуком


6-1196845207
Lamer666
2007-12-05 12:00
2009.01.11
Как после события TWebBrowser DownloadComplete вернуться в цикл!


6-1196964272
BlazeMaster
2007-12-06 21:04
2009.01.11
Вопрос о компоненте WebBrowser


1-1205380631
snake-as
2008-03-13 06:57
2009.01.11
Посылка письма


15-1226186059
Petr V. Abramov
2008-11-09 02:14
2009.01.11
ну теперь продажи пойдут