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;

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