como guardar o focus do registro anterior

Question

galera, como eu poderia fazer para guardar o foco do componente anterior que eu estava.

Minha situacao eh a seguinte, tenho 2 dbgrids,e um botao quando eu clico no botao eu teria q saber em qual dbgrid estava o foco pra mim fazer tal coisa.

fiz a seguinte tentativa mas naum deu...

if dbgrid1.focused then
....
...
...

_rodfaria_ · Answer

-Na �rea privada do seu form crie uma vari�vel para conter o nome do �ltimo grid:

private
FNomeUltimoGrid:string;

-No evento OnExit de cada DBGrid fa�a:

procedure TForm1.DBGrid1Exit(Sender: TObject);
begin
FNomeUltimoGrid:=DBGrid1.Name;
end;
procedure TForm1.DBGrid2Exit(Sender: TObject);
begin
FNomeUltimoGrid:=DBGrid2.Name;
end;

-E no bot�o use a vari�vel para tomar suas decis�es:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(�ultimo grid com foco foi �+FNomeUltimoGrid);
end;

Zumbi · Answer

teria como saber, o componete anterior que esta vindo o foco? pois caso o usuario nao clique no grid ele nao vai mostrar nda....

Marco Salles · Answer

[quote:61fd19ed79]Na �rea privada do seu form crie uma vari�vel para conter o nome do �ltimo grid: private FNomeUltimoGrid:string; [/quote:61fd19ed79]So que ao Inves de :[quote:61fd19ed79]No evento OnExit de cada DBGrid fa�a: [/quote:61fd19ed79]Use o evento OnEnter o codigo Generico , para qualquer DbGrid[code:1:61fd19ed79]FNomeUltimoGrid:=TDbGrid(sender).Name; [/code:1:61fd19ed79]...

F�rum como guardar o focus do registro anterior #294641