К сожалению, установка свойства формы FormStyle в fsStayOnTop заставляет ее всегда находиться выше других окон в приложении, но не во всей системе.
Для того, чтобы окно всегда находилось поверх других окон в системе, его нужно немного модифицировать:
1. Добавьте в секцию private вашей формы метод CreateParams:
2. Ниже вставьте такой код этого метода:
Для того, чтобы окно всегда находилось поверх других окон в системе, его нужно немного модифицировать:
1. Добавьте в секцию private вашей формы метод CreateParams:
TForm1 = class(TForm)
private
procedure CreateParams(var Params: TCreateParams); override;
end;
2. Ниже вставьте такой код этого метода:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_TOPMOST;
WndParent := GetDesktopWindow;
end;
end;