programa activo en windows

[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