Скачать: CL | DM;

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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c