Saber qual tabsheet que clicou

Question

Tenho um page control c/ 3 tabsheets e gostaria de bloquear a mudan�a de tabshhet sob certa condi��o.<BR>  Por exemplo, estou no tabsheet 0 e quero que

Ivonei · Answer

Quando eu quero bloquear um dos TabSheet, eu simplesmente deixo ele invisivel quando acessado. No exemplo abaixo, o usu�rio poder� acessar o TabSheet2, mas n�o ver� nenhum componente que estiver nele.

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex=1 then
TabSheet2.Visible:=False;
end;