grid1.onexit vrs grid2.onclick

[Livey]

Quizas no me explique bien, no es que siempre se ejecuta grid2.onclick, sino se ejecuta el click de componente que clickeo.
Crei que quizas era alguna propiedad que permitia esto.
Le doy la razon no es lógico, pero se me esta dando, porqué? ni idea.
Lo curioso es que siempre y cuando de click en componentes que estan en el tabsheet si se ejecuta primero grid1.onexit, pero si es en un componente fuera del tabsheet, ejecuta primero el click del componente y luego ejecuta el grid1.onexit.

[ecfisa]

Hola Livey.

A ver...

La cuestión es quien tiene el foco y si tiene o nó declarada una respuesta en el evento.

Lo que yo quiero decir es que si cada control tiene asignado algo a sus eventos OnClick y OnExit, y estando en un control en particular, si se hace click sobre el otro, el orden de disparo de los eventos es:

1) Control1.OnExit.
2) Control2.OnClick.

Ahora, ¿ Como puede pasar lo que sucede ?

La única manera que me ocurre es:
Tenemos dos controles Ctrl1 y Ctrl2 y tienen sus eventos asignados de este modo.
Ctrl1:

Código Delphi [-]
procedure Ctrl1Click(Sender: TObject);
begin
  ShowMessage('Ctrl1 OnClick');
end;

Ctrl1.OnExit = nil (ningún evento asignado)

Ctrl2:

Código Delphi [-]
procedure Ctrl2Click(Sender: TObject);
begin
  ShowMessage('Ctrl2 OnClick');
end;

procedure Ctrl2Exit(Sender: TObject);
begin
  ShowMessage('Ctrl2 OnExit');
end;

Ahora supongamos que estamos con foco en Ctrl1. Si hago click sobre Ctrl2, es lógico que no voy a recibir respuesta del evento
Ctrl1.OnExit y sí el mensaje 'Ctrl2 OnClick'.

Saludos.

[Livey]

Ok voy a verificar bien lo del focus, pero dime si estoy equivocada, se supone que si yo estoy escribiendo en el grid1, significa que el focus se encuentra en él.

[ecfisa]

Empezado por Livey

Ok voy a verificar bien lo del focus, pero dime si estoy equivocada, se supone que si yo estoy escribiendo en el grid1, significa que el focus se encuentra en él.

Totalmente.

Saludos.

[ecfisa]

Hola de nuevo Livey.

Te paso el código simple que realizé de prueba.

El Form tiene un PageControl con un TabSheet y dentro de él un StringGrid (grid1) y un Button.
En el Form puse el segundo StringGrid (grid2) y otro Button (Creo que así estaba dispuesto tu form).

Quizá te sirva para individualizar el problema.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    grid1: TStringGrid;
    grid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure grid1Click(Sender: TObject);
    procedure grid1Exit(Sender: TObject);
    procedure grid2Click(Sender: TObject);
    procedure grid2Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button1Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button2Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // esto lo podés asignar en tiempo de diseño,
  // pero así evitamos cualquier olvido
  grid1.OnClick:= grid1Click;
  grid1.OnExit:= grid1Exit;
  grid2.OnClick:= grid2Click;
  grid2.OnExit:= grid2Exit;
  Button1.OnClick:= Button1Click;
  Button1.OnExit:= Button1Exit;
  Button2.OnClick:= Button2Click;
  Button2.OnExit:=  Button2Exit;
end;

procedure TForm1.grid1Click(Sender: TObject);
begin
  ShowMessage('grid1 OnClick');
end;

procedure TForm1.grid1Exit(Sender: TObject);
begin
  ShowMessage('grid1 OnExit');
end;

procedure TForm1.grid2Click(Sender: TObject);
begin
  ShowMessage('grid2 OnClic');
end;

procedure TForm1.grid2Exit(Sender: TObject);
begin
  ShowMessage('grid2 OnExit');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Button1 OnClick');
end;

procedure TForm1.Button1Exit(Sender: TObject);
begin
  ShowMessage('Button1 OnExit');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Button2 OnClick');
end;

procedure TForm1.Button2Exit(Sender: TObject);
begin
  ShowMessage('Button2 OnExit');
end;
end.

Saludos.

[Livey]

Gracias. Voy a seguir intentando