| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что здесь неправильно? [D5, WinME]

sergey2 ©   (2003-01-05 22:21:00) 

Хотел сделать чтобы можно было устанавливать или снимать свойство окна "всегда впереди".

Типа так:

procedure TForm1.CheckBox1Click(Sender: TObject);

begin
if CheckBox1.Checked
then begin
Form1.FormStyle:=fsStayOnTop;
end else Form1.FormStyle:=fsNormal;

end;

Но при установке и снятии галочки с CheckBox"а исчезает изображение с размещенного на этом же окне TWebBrowser.
Может что-то еще нужно сделать для нормальной работы?

---

sergey2   (2003-01-06 08:38:00) [1]

Большое спасибо. Сделал так. Все отлично работает.
Только теперь мне захотелось чтобы окошко поверх вылезало само как только страничка загрузится. И тут начались глюки.

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if radiobutton3.checked
then
begin
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width, Height, SWP_NOREDRAW);

end;
end;

Что можно сделать в этом случае?

---

Rouse_   (2003-01-05 22:26:00) [2]

Ставим
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width, Height, SWP_NOREDRAW);
end;

Снимаем
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width, Height, SWP_NOREDRAW);
end;

Еще ловим сообщение WM_PAINT если не полностью поможет

Желаю успехов

---

Наверх