programa activo en windows
 

Hola Sres. Como están ustedes...

Tengo una interrogante el cual necesito que la aplicación desarrollada en delphi esté siempre en primer plano ya que en ocasiones se pone en segundo plano y la aplicación se encarga de leer codigos de barra sin intervención de ningún usuario y al estar en segundo plano el lector realiza la lectura pero el programa no captura en el edit la lectura. eso es posible usando la api de windows?


Saludos

novato_erick

Hola novato_erick.

Ajusta la propiedad FormStyle del form principal en fsStayOnTop en tiempo de diseño, o si prefieres en ejecución:

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop; 
  ...
end;

Saludos :)

Hola de nuevo.

Ahora noto que lo publicaste en el foro API de windows, así que si gustas hacerlo por esa vía:

Código Delphi [-]
procedure FormAlTop(aForm: TForm; const alTop: Boolean);
begin
  if alTop then
    SetWindowPos(aForm.Handle,
                 HWND_TOPMOST,
                 0,
                 0,
                 0,
                 0,
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE)
  else
    SetWindowPos(aForm.Handle,
                 HWND_NOTOPMOST,
                 0,
                 0,
                 0,
                 0,
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Llamada ejemplo:

Código Delphi [-]
procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
  FormAlTop(MainForm, CheckBox1.Checked);
end;

Saludos :)

Jaaja ecfisa
esto es todo?

yo buscando por todo lado función como esta Función GetActiveWindow.

Saludos

Un ejemplo de la belleza de la simplicidad... :D

Saludos :)

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:

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

Hola novato_erick.

Realmente no alcanzo a visualizar la situación ni el problema, ¿ Podrías explicar con mas detalle el comportamiento que estas buscando ?

Saludos :)

Este tema me resulta interesante ya que dentro de poco voy a tener que andar usando un lector de huellas digitales en una aplicacion que por ahora esta en papel y lapiz

La aplicacion en teoria registra asistencia de una persona al leer la huella digital de la misma, seria muy interesante que aunque no sea la ventana activa siga realizando el proceso

Lamentablemente no tengo codigo para compartir, pero supongo que consistira en un control edit en el cual capturo la lectura de la huella digital, y en el evento OnChange invocar algun metodo que busque a la persona con la huella digital y se encargue de marcar el presente

La solucion de la propiedad fsStayOnTop es la ultima alternativa a la que me gustaria recurrir, ya que la pc en cuestion podria estar usandose para otra cosa (como expuse en otro tema mi aplicacion registra presentes de socios en un gimnasio), por ejemplo la usan para pasar musica


Cordiales saludos

Con los que yo he trabajado no funcionan como los lectores de códigos, que suelen "emular" la introducción de un teclado (ya que también se podría hacer tecleando al código manualmente -cuando la etiqueta, por ejemplo, está rota y no se puede leer con el lector-).

En el caso de un lector de huella no tiene sentido introducirla tecleando, y se los que yo he visto funcionan con DLL/OCX que se distribuyen con el dispositivo y se comunican con él.