Что здесь неправильно?

← →
sergey2 (2003-01-05 22:21) [0]

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

Типа так:

procedure TForm1.CheckBox1Click(Sender: TObject);

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

end;

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

← →
Rouse_ © (2003-01-05 22:26) [1]

Ставим
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 если не полностью поможет

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

← →
sergey2 (2003-01-06 08:38) [2]

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

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;

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

Что здесь неправильно? Найти похожие ветки