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