Evitar el cambio TPageControl

[Jose Roman]

Hola a todos,

Trabajo con Delphi RIO, tengo un componente TPageControl, el cual tiene varias paginas, la primera pagina por ejemplo es un formulario donde el usuario ingresa datos a una base de datos MySql, lo que deseo es que no pueda cambiar de Tab al darle clic el usuario cuando este esta en modo de edicion, lo trato de hacer en el evento ChangePage pero hace primero me muestra el Tab al que dio clic el usuario y no deseo que se vea el nuevo tab hasta que el Dataset este en dsBrowse.

Gracias.

[[escafandra]]

Código Delphi [-]
procedure TForm1.PageControlChanging(Sender: TObject; var AllowChange: Boolean);
begin
  AllowChange:= CheckBox1.Checked;
end;

Saludos.