programa activo en windows

[novato_erick]

Hola Chicos complementando un poco a mi tema en el que creo que el problema a parte de ejecución a primer plano de la aplicación a parte estaba el problema luego del Focus del componente que en este caso es un edit

esta es el codigo implementado en una funcion llamada ActiveFocus;

Código Delphi [-]
function TfrmAsistencia.ActiveFocus: Boolean;
var
  Handle: THandle;
  Len: LongInt;
  Title: string;
begin
  Result := False;
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    Result := True;
    if Result then
    begin
      edtCedula.SetFocus;
    end;
  end;

con un Timer en el evento OnTimer del mismo llamo simplemente la funcion y resolví el problema del focus en la aplicación esto aunque dentro del formulario mi edit el Tab Order es el primero no me hacia el foco al pasar nuevamente a primer plano.

Saludos

novato_erick

p.d:

ecfisa
Un ejemplo de la belleza de la simplicidad...

espero sea este código se convierta en algo más simple...