Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

PageControl [D5, Win2k]

DenNNis © (2002-06-06 08:17:00)
Подскажите как сделать чтобы в PageControl закладка стала неактивной (чтобы её вобще нельзя было открыть) ???

Song (2002-06-06 11:27:00) [1]
Работает при переключении в любую сторону:

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;

Song (2002-06-06 09:52:00) [2]
Игорь, наверно легче на onChanging вернуть AllowChange:=False :-)

Игорь Шевченко (2002-06-06 09:42:00) [3]
Чтобы нельзя было выбрать, попробуйте так:

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;

С уважением,

dim- (2002-06-06 09:36:00) [4]
TTabSheet.TabVisible

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

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

DenNNis (2002-06-06 08:42:00) [5]
Pagecontrol1.pages[1].enabled:=false Если так написать, то закладка все равно открывается, а объекты которые на ней расположены становятся дизаблед, а мне нада чтоб ваще нельзя былобы нажать на закладку ???

Song (2002-06-06 08:37:00) [6]
TTabSheet.TabVisible
или обрабатывать TPageControl.onChange/onChanging

fnatali (2002-06-06 08:22:00) [7]
Pagecontrol1.pages[1].enabled:=false ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »