Stay On Top

← →
Bug (2003-04-18 11:07) [0]

При установлении свойство формы FormStyle := fsStayOnTop то форма мерцает (исчезает и потом снова появляется) как избежать этого эфекта?

← →
Игорь Шевченко © (2003-04-18 11:17) [1]

SetWindowPos(Form1.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE OR SWP_NOMOVE), например

← →
Bug (2003-04-18 11:23) [2]

спасибо!

← →
Bug (2003-04-21 15:54) [3]

Игорь Шевченко © (18.04.03 11:17):
есть одна проблема:
если я делаю SetWindowPos только главной формы - то все ок, но если делаю и для других форм проекта то работает неправильно;
вот код для главной формы (то же самое для других):

procedure TfrmMain.btnAlwaysOnTopClick(Sender: TObject);
begin
FBtnAlwaysOnTopIsDown := not FBtnAlwaysOnTopIsDown;
btnAlwaysOnTop.Down := FBtnAlwaysOnTopIsDown;
if FBtnAlwaysOnTopIsDown then
begin
btnAlwaysOnTop.Hint := "Cancel Dictionary on top";
btnAlwaysOnTop.ImageIndex := 4;
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end
else
begin
btnAlwaysOnTop.Hint := "Always on top";
btnAlwaysOnTop.ImageIndex := 3;
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
end;
end;

Как это решить ?

Stay On Top Найти похожие ветки