Tpagecontrol 控件的问题
在用PAGECTROL控件时,用鼠标点击进入某页时,想先弹出一个密码输入验证框,验证通过再跳入该页,否则保持原来页面不变。就是说出现验证框时该页先不显示,有什么办法吗?请各位大哥兄弟帮忙,急!!!!!!
试过在ONPAGECHANGING响应事件中添加,但是会报错,如我加FORM2.show就报错。在ONPAGECHANGE中添加可以,但是要进行一次操作,就是设置页设回去.求一个有效方法,在这先谢谢大家了!!!
[解决办法]
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if PageControl1.ActivePageIndex = 1 then exit;
AllowChange := Application.MessageBox('Are you sure?', 'Sure', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK;
end;
[解决办法]
在OnChange事件写
首先校正密码,
如果校正不对
显示可以显示的页