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

Вниз

Изменить картинку на закладке PageControl1 по клику   Найти похожие ветки 

 
ЮРИЙ_К ©   (2002-11-21 17:46) [0]

Есть PageControl1 с несколькими закладками. Свойству Images соответствует некий ImageList1 с двумя картинками. При активации формы на событие вешаю следующее

procedure TMainFrm.PageControl1GetImageIndex(Sender: TObject;
TabIndex: Integer; var ImageIndex: Integer);
begin
Case TabIndex of
0 : ImageIndex := 0;
1 : ImageIndex := 1;
2 : ImageIndex := 1;
3 : ImageIndex := 1;
4 : ImageIndex := 1;
end;{Case}
end;

Можно-ли сделать так, чтобы при нажатии на закладку у нее менялась картинка с 1 на 0 из тогоже ImageList, а предыдущаа в свою очередь получала 0 вместо 1 соответственно???.


 
wssg   (2002-11-21 20:00) [1]

Один из вариантов:

...
var
Form1: TForm1;
OldTabSheet:integer;
implementation

{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
OldTabSheet:=PageControl1.ActivePageIndex;
end;

procedure TForm1.PageControl1GetImageIndex(Sender: TObject;
TabIndex: Integer; var ImageIndex: Integer);
begin
if TabIndex = PageControl1.ActivePageIndex then
ImageIndex:=0
else ImageIndex:=1;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
PageControl1.Pages[OldTabSheet].ImageIndex:=1;
PageControl1.ActivePage.ImageIndex:=0;
OldTabSheet:=PageControl1.ActivePageIndex;
end;
...


 
ЮРИЙ_К ©   (2002-11-22 10:16) [2]

Огромное спасибо, братишка, помогло, то что и требовалось 8-) !!!



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-4347
pusher
2002-11-22 09:36
2002.12.02
Грабли с передачей строки в С++ DLL


1-4489
id_privin
2002-11-18 20:29
2002.12.02
Отладка работы компонент в Design-time


1-4477
котел
2002-11-20 13:26
2002.12.02
помощь


1-4269
StasV
2002-11-21 04:10
2002.12.02
Программа просмотров сайтов. Свой браузер.


6-4549
Max2000
2002-10-03 10:49
2002.12.02
Подскажите как обмануть провайдера????