grid1.onexit vrs grid2.onclick

[Livey]

Les agradeceria me ayudaran con esto...
El caso es el siguiente:
Estoy trabajando con Delphi 5 y estoy trabajando con dos grids en la misma forma.
A grid1 le hice validaciones en el onexit y el grid2 tiene validaciones en el onclick.
El problema es que cuando estoy editando en el grid1 y doy click en el grid2, lo que pasa es que ejecuta primero el evento de grid2.onclick y luego ejecuta grid1.onexit.
Pero yo requiero que se ejecute primero el evento del grid1.onexit y dependiendo de las validaciones que se realicen ahi, se ejecute o no el evento del grid2.onclick

De nuevo gracias por la ayuda que me puedan brindar.

[ecfisa]

Hola Livey.

Si estás en grid1, al hacer click en otro control, grid1 pierde el foco, por lo tanto se dispara el evento grid1.OnExit.

Por lo tanto: Si el foco está en grid1 y hacés click sobre grid2, el orden de disparo de los eventos es:
1. grid1.OnExit
2. grid2.OnClick

No veo manera de que se te invierta ese órden... pero habría que ver el código.

Saludos.

[Caral]

Hola
Y no depende de lo que se ponga en el evento onexit del dbgrid1 ?:confused:
Por que ahi se puede poner lo que se quiera, incluso una condicion con respecto al dbgrid2.
Me equivoco?:rolleyes::confused:
Saludos

[ecfisa]

Hola
Y no depende de lo que se ponga en el evento onexit del dbgrid1 ?:confused:
Por que ahi se puede poner lo que se quiera, incluso una condicion con respecto al dbgrid2.
Me equivoco?:rolleyes::confused:
Saludos

Si mi amigo, tenés razón, puede llamar a cualquier evento, condicion, hasta reiniciar la PC si lo desea.
Pero no te olvides que para que ese echo suceda, antes tiene que haberse disparado grid1.OnExit.


Saludos.:)

[Enan0]

Estube haciendo unas pruebas. Con unos StringGrid y DBGrid ya que no especificas cual usas y siempre se ejecuta el evento OnExit antes del click en el segundo Grid.

Talvez podrias poner parte de tu codigo para que te podamos dar un poco mas de ayuda.

[Livey]

Algo que no mencione es que el grid1 esta en un tabsheet y el grid2 esta en la forma como tal.
Si estoy editando en el grid1 y doy click en otro componente que se encuentre en el tabsheet, se ejecuta primero el evento grid1.onclick y luego el evento del click del otro componente, pero no sucede asi si doy click en el grid2, tambien se da en los botones del toolbar; ejecuta primero el evento del click y luego grid1.onclick
La medida que tome fue hacer una validación en cada uno de los componente que me genera problemas
Código Delphi [-] (http://www.clubdelphi.com/foros/#)Function TFPrProy.ValidaDisp(Sender: TObject):Boolean; Begin If (Sender <> GrDistrFond) and ValDisp then Begin GrDistrFond.OnExit(Sender); If not ValDisp then Grid.SetFocus; End; Result := ValDisp; End;


Entonces dependiendo lo que retorne esa funcion se ejecuta los eventos del onclick de los diferentes componentes

[ecfisa]

Si estoy editando en el grid1 y doy click en otro componente que se encuentre en el tabsheet, se ejecuta primero el evento grid1.onclick


Hola Livey.

No importa donde esté hubicado grid1.

Insisto, si como decís, estás editando en grid1 (grid1 tiene el foco) y hacés click sobre otro control, primero se
ejecuta grid1.OnExit por que este evento se produce cuando el control pierde el foco.

Es más, si acabás de hacer un click sobre otro control... ¿ Como podría disparase grid1.OnClick ? :confused:

Es muy fácil de comprobar, poné en un form:
.- Dos StringGrid donde quieras: tabsheet, solos ... (Supongo que son StringGrid por que DBGrid no tinene el evento OnClick)
.- Varios controles que puedan recibir el foco.
.- Asigna:


procedure TForm1.grid1Click(Sender: TObject);
begin
showMessage('grid1 on click');
end;


procedure TForm1.grid1Exit(Sender: TObject);
begin
showMessage('grid1 on exit');
end;

Y verificalo.

En mis pruebas, con y sín TabSheet, el único grid1.OnClick que recibí fue cuando hice click sobre grid1.

Saludos.:)

[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:

procedure Ctrl1Click(Sender: TObject);
begin
ShowMessage('Ctrl1 OnClick');
end;


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

Ctrl2:

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]

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.


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