| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изменить картинку на закладке PageControl1 по клику [D6]
ЮРИЙ_К © (2002-11-21 17:46:00)Есть 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 соответственно???.
ЮРИЙ_К (2002-11-22 10:16:00) [1]Огромное спасибо, братишка, помогло, то что и требовалось 8-) !!!
wssg (2002-11-21 20:00:00) [2]Один из вариантов:
...
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;
...
| |
