[Alejo15x]

Yo en Delphi, hago algo parecido:

Código Delphi [-]
procedure Focus();
begin
 if (btnArea1.Focused = true) then
 begin
  Ventanas.Activar[1];
 end;
end;