Форум: "Сети";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Вниз
Что здесь неправильно? Найти похожие ветки
← →
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;
Что можно сделать в этом случае?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c