Изменить картинку на закладке 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; ...

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

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