Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c