programa activo en windows

[novato_erick]

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

[ecfisa]

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

[ecfisa]

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

[novato_erick]

Jaaja ecfisa
esto es todo?

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

procedure TMainForm.FormCreate(Sender: TObject);
begin
FormStyle := fsStayOnTop;
...
end;

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

Saludos

[ecfisa]

Empezado por novato_erick

Jaaja ecfisa
esto es todo?
...

Un ejemplo de la belleza de la simplicidad...

Saludos

[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...

[ecfisa]

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