Скачать: CL | DM;

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

← →
DenNNis   (2002-06-06 08:17) [0]

Подскажите как сделать чтобы в PageControl закладка стала неактивной (чтобы её вобще нельзя было открыть) ???

---

← →
fnatali ©   (2002-06-06 08:22) [1]

Pagecontrol1.pages[1].enabled:=false ?

---

← →
Song ©   (2002-06-06 08:37) [2]

TTabSheet.TabVisible
или обрабатывать TPageControl.onChange/onChanging

---

← →
DenNNis   (2002-06-06 08:42) [3]

Pagecontrol1.pages[1].enabled:=false Если так написать, то закладка все равно открывается, а объекты которые на ней расположены становятся дизаблед, а мне нада чтоб ваще нельзя былобы нажать на закладку ???

---

← →
dim- ©   (2002-06-06 09:36) [4]

TTabSheet.TabVisible

а при открытии если вдруг не видно первую закладку

for i:=0 to PageControl1.PageCount-1 do
if PageControl1.Pages[i].TabVisible then begin
PageControl1.ActivePageIndex:=i;
exit;
end;

---

← →
Игорь Шевченко ©   (2002-06-06 09:42) [5]

Чтобы нельзя было выбрать, попробуйте так:

procedure TfrmReportCheck.PageControl1Change(Sender: TObject);
var
TabSheet : TTabSheet;
begin
if NOT PageControl1.ActivePage.Enabled then begin
TabSheet := PageControl1.ActivePage;
repeat
TabSheet := PageControl1.FindNextPage(TabSheet, true, true);
until TabSheet.Enabled;
PageControl1.ActivePage := TabSheet;
end;
end;

С уважением,

---

← →
Song ©   (2002-06-06 09:52) [6]

Игорь, наверно легче на onChanging вернуть AllowChange:=False :-)

---

← →
Song ©   (2002-06-06 11:27) [7]

Работает при переключении в любую сторону:

private
Tab:TTabSheet;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
With TPageControl(Sender) Do
IF ActivePageIndex in [1,4,7] then // вкладки недопустимые для переключения
Begin
ActivePage:=Tab;
Exit;
End else Tab:=ActivePage;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Tab:=TabSheet1;
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c