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

Вниз

PageControl и Image   Найти похожие ветки 

 
Fishka   (2003-01-29 16:05) [0]

Если все TabSheet-ы невидимы, то хотелось бы, чтобы на PageControl-е была картинка, а не просто "чистый лист".
Как это сделать? Ну, как если бы на форму кинули Image (jpg) и растянули его. Или как сделать PageControl прозрачным. Делать невидимым PageControl нельзя, так как потом делая видимым один TabSheet, придется все остальные делать невидимыми, и как результат - моргание TabSheet-ов.
Если вопрос понятен, помогите, пожалуйста.


 
NickBat ©   (2003-01-29 16:14) [1]

var
l: TLabel;

...
l:=TLabel.Create(self);
l.Parent:=PageControl1;
l.Caption:="hhh";
l.Visible:=true;
...

То же с рисунком.


 
REA ©   (2003-01-29 16:17) [2]

Можно сделать дополнительный лист с картинкой. А зачем такой контрол без закладок?


 
Fishka   (2003-01-29 16:39) [3]

NickBat © (29.01.03 16:14)
Не получилось, картинка видна за PageControl-ом.

REA © (29.01.03 16:17)
У PageControl-а масса закладок, но видны не все, а есть ситуации, когда должно быть не видно ни одной.

Можно сделать дополнительный лист с картинкой. - Что имеется в виду, непонятно. На TabSheet не получает "повесить" картинку.

Что еще можно сделать?


 
NickBat ©   (2003-01-29 17:01) [4]

И так не работает???

var
i: TImage;
begin
i:=TImage.Create(self);
i.Parent:=PageControl1;
i.Visible:=true;
i.Picture.LoadFromFile("d:\11.bmp");


 
Fishka   (2003-01-30 12:56) [5]

NickBat © (29.01.03 17:01)
У меня написано было также, но, кажется, вчера не было i.Visible:=true;
А сейчас все нормально вроде работает.
СПАСИБО!



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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
14-29080
Mischka
2003-01-21 13:13
2003.02.10
Программирование доказывает или отрицает существование Бога?


14-29081
Dark Elf
2003-01-25 15:38
2003.02.10
Approximator 1.03


6-28954
Yogi
2002-12-11 07:29
2003.02.10
Медленный connect


6-28975
Klaz
2002-12-17 08:21
2003.02.10
Как узнать IP-адрес???


3-28680
T{}r(l-l
2003-01-24 15:10
2003.02.10
Вызов DTS-пэкаджа из Delphi?