Y dónde está el Focus?

[[Caral]]

Hola
Es un problema cuando se pierde el focus y quedas a oscuras
Bueno, aparte de la broma:
Me da la impresión de que si tienes dos eventos distintos pero similares puede haber confusión, me refiero a los eventos:
Departamento_PKeyPress y Departamento_PKeyDown
Me parece que hacen prácticamente lo mismo, no ?.
Saludos

[GustavoCruz]

Hola Caral, el problema es que esas mismas instrucciones las tengo en otro formulario y allá todo funciona perfectamente bien. Y bueno definitivamente estoy oscuras ...; también he observado el TabOrder y todo está bien.

Habrá alguna función que me indique en qué lugar se encuenta el focus dentro de un formulario?

Gracias por vuestro tiempo

GustavoCruz

[ecfisa]

Empezado por GustavoCruz

...
Habrá alguna función que me indique en qué lugar se encuenta el focus dentro de un formulario?
...

Hola Gustavo.

Código Delphi [-]
  Screen.ActiveControl.Name;

Saludos

[ecfisa]

Hola de nuevo.

Ampliando el alcance podes hacer:

Código Delphi [-]
function GetFocusedControlName(const FormName:string): TWinControl;
var
  i: Integer;
begin
  Result:= nil;
  for i :=  0 to Screen.FormCount-1 do
    if (Screen.Forms[i].Name = FormName)and(Screen.Forms[i].Visible) then
    begin
      Result:= Screen.Forms[i].ActiveControl;
      Exit;
    end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  WC: TWinControl;
begin
  WC:= GetFocusedControlName('Form2');
  if Assigned(WC) then
    ShowMessage(WC.Name);
end;

De este modo obtenes el nombre del control que tenga el foco en cualquier Form visible, cuya unidad haya sido incluida en la unidad actual.

Saludos