FstayOnTop положение формы, как в AIMP

[phphel]

Вобщем, есть форма (не главная).
Form2 допустим.

Мне нужно, что бы она всегда находилась на экране.
Тоесть даже тогда, когда потерян фокус.

Пробовал ставить форме FstayOnTop, но это не помогает.
Форма все равно переодически пропадает с экрана.

Нечто подобное реализовано в плеере Aimp.


Там мини-окошко всегда отображается на экране.
Где бы не был фокус.

Помогите реализовать.

[dmitriegorovih]

А если вот так

...
type
  TForm2 = class(TForm)
procedure CreateParams(var Params: TCreateParams); override;
...
 procedure Tform2.CreateParams(var Params: TCreateParams);
 begin
 inherited CreateParams(Params);
 Params.ExStyle:= Params.ExStyle or WS_EX_TOPMOST;
Params.WndParent:= GetDesktopWindow;
 end;

Да и не забудь выставить у формы значение fsStayOnTop

[phphel]

Сделал, проблема осталась.

К примеру если нажать свернуть все окна.
Аимп то не сворачивается.

[Alter]

А так?

  SetWindowPos(Handle,
    HWND_TOPMOST,
    Left,
    Top,
    Width,
    Height,
    SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

[phphel]

Alter, ваш вариант также не подходит.
Немного погуглив выяснилось, что это просто WinApi аналог FsStayOnTop

Проблема не решена...

[Вадим Мошев]

Может тогда, OnPaint?
Но мне кажется, что всё равно ничего хорошего не выйдет...
пропробуйте тем не менее

[phphel]

А что именно в OnPaint?
Мне бы хоть грубый вариант, с тем же таймером, главное что бы работало, заколебался с этим вопросом уже..

[dmitriegorovih]

Сделал, проблема осталась.

К примеру если нажать свернуть все окна.
Аимп то не сворачивается.

Да забыл добавить, BorderStyle надо изменить у формы например на вот это
bsSizeToolWin

[phphel]

O, спасибо.
А если понадобится вернуть старое положение формы, что писать?

[bulldog5293]

там рандомное появление полной формы, т.е. часть окна скрывается, если получится чуть позже выложу, прост не помню как именно писать