Saludos,
Adjunto un ejemplo.
Pasos a seguir:
1. click en el botón 7
2. poner texto en cualquiera de los dos edit que están en TabSheet7
3. hacer click en el botón 6 (se disparará el evento OnExit del PageControl)
4. Realizará lo que está en el evento OnExit del PageControl
5. No continua con la acción del botón 6 que fué donde dió click, sino que se queda en el PageControl en la misma página
Código Delphi
[-]procedure TForm1.PageControl1Exit(Sender: TObject);
begin
if PageControl1.ActivePage = TabSheet7 then
if (Edit1.Text <> '') or (Edit2.Text <> '') then
if MessageDlg('Desea guardar la información',mtConfirmation, mbOKCancel, 0) = mrOk then
SaveInfo;
end;