Cómo capturar el objeto al que he dado clic

[Badillo]

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;

  // Ejecutar el evento del botón donde se haya dado click
  // Cómo identifico en que botón se dió click
  // Cómo hago para que en vez que quedarse en el TabSheet7 se ejecute el evento onclick del botón donde se haya dado click
end;

[Neftali [Germán.Estévez]]

Yo creo que estás colocando el código en un evento equivocado, independientemente de que no funcione como esperas.
Creo que tiene más sentido (al menos para mi) moverlo a OnChange/OnChanging.

[Badillo]

No he logrado resultados positivos ni en OnExit, OnChanging o OnChange.

He puesto banderas, pero nada.

Gracias por las ideas y sugerencias, seguiré buscando y si encuentro como hacerlo lo publicaré.