Acessar tabsheet com senha

Delphi

31/03/2003

Tenho num form um pagecontrol com 5 tabsheet. Como faço para o usuário acessar a tabsheet5(somente ela) com senha e as demais sem senha? Eu fiz assim: if pagecontrol1.activepages = tabsheet5 then begin
codigos da senha;
end;
desta forma, toda vez q saio dela ele pede a senha(evento OnChanging)
e se for no evento OnChange, ele pede a senha em qualquer tabsheet. Como fazer para somente uma dada tabsheet(ex:tabsheet5)?


Paulo

Paulo

Curtidas 0

Respostas

Nildo

Nildo

31/03/2003

Coloca no OnChange do pageControl:

if pageControl1.ActivePageIndex = 4 then
Codigo_da_senha


GOSTEI 0
Dor_poa

Dor_poa

31/03/2003

ou então vc. pode usar o nome do TabSheet
if (PageControl1.ActivePage = TabSheet2) then]
pede a Senha..


GOSTEI 0
POSTAR