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