StayOnTop

← →
d6 (2002-08-31 20:57) [0]

Как сделать форму StayOnTop. При установке свойства FormStyle в fsSatyOnTop форма оттображается только поверх окон своего приложения. А мне надо поверх всех.

← →
Алексей Ким © (2002-08-31 20:59) [1]

Уже спрашивал... и мне надо было но люди такие
ответы писали...

← →
Ученик © (2002-08-31 21:22) [2]

>d6 (31.08.02 20:57)
Оно будет поверх всех, пока другое приложение это не изменит.

← →
VID © (2002-09-01 00:34) [3]

SetWindowPos(form1.handle, hwnd_topmost, 0,0,0,0, swp_nomove+swp_nosize);

← →
d6 (2002-09-01 11:26) [4]

> VID ©

Это проходит только с главной формой. А мне надо любую.

← →
VID © (2002-09-01 12:36) [5]

to d6: а ты оказывается шутник :)
а что если вместо приведённого мною в качестве примера FORM1.Handle ты напишешь, MyNotMainForm.Handle ?
т.е. в первом параметре надо указывать хэндл той формы, которую ты собираешься закинуть на верхний уровень.

← →
L (2002-09-01 13:31) [6]

> to d6: а ты оказывается шутник :)
> а что если вместо приведённого мною в качестве примера FORM1.Handle
> ты напишешь, MyNotMainForm.Handle ?
> т.е. в первом параметре надо указывать хэндл той формы,
> которую ты собираешься закинуть на верхний уровень.

Я так и делаю. Форма выходит на верхний уровень, но стоит мне сделать активным любое другое окно (IE например) и она благополучно скрывается под ним.

← →
d6 (2002-09-01 13:31) [7]

← →
Юрий Зотов © (2002-09-01 14:29) [8]

А что же Вы хотели? Вы ставите форму поверх всех, но ведь этого мало - надо еще запретить ее перемещение по Z-порядку.

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
end;

procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
inherited;
with Message.WindowPos^ do flags := flags or SWP_NOZORDER
end;

procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)
end;

Естественно. TaskBar - он и в Aфрике TaskBar, у него особый статус.

>Юрий Зотов © (01.09.02 14:45)
Не, не естественно,
без with Message.WindowPos^ do flags := flags or SWP_NOZORDER, все как надо

Точно. Tnx.
Тогда вообще непонятно - а какие же проблемы у d6?

StayOnTop Найти похожие ветки