...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:21

У меня

Код

WindowState := wsMaximized; BorderStyle:=bsNone;

работает на ура. На форме лежит TWebBrowser c Align=alClient. Скорее всего, у тебя в другом месте ошибка.

Цитата(Quadr0 @ 19.6.2005, 21:49)

ни на какие Visible := True.

А он вообще на это свойство плевать хотел В ходе моих давних экспериментов выяснилось, что лучше всего держать TWebBrowser внутри TPanel, и уже через TPanel регулировать видимость.

Скорее всего это происходит из-за того, что пересоздаются окна, поэтому TWebBrowser теряет своё содержимое...
Чтобы проверить так это или нет, посмотри значение WebBrowser.Handle до и после строчки BorderStyle := bsNone... Если изменяется - значит плохо (по смыслу - должно изменяться )
Когда-то была темка про подобное, но не совсем про это:
http://forum.vingrad.ru/index.php?showtopic=40245&view=all(но смысл тот же - уничтожаются окна)...
Я так понял, ты это для DRKB-вьювера делаешь. Поэтому может проще обойтись без лишнего геморроя и перезагрузить страничку и перемотать на нужное место ?...

Либо же, через WinAPI:

Код

procedure TMainForm.FullScrenn(Sender: TObject); var   ws : integer; begin   ShowWindow(Handle, SW_MAXIMIZE);   ws := GetWindowLong(Handle, GWL_STYLE);   ws := ws and (not (WS_BORDER or WS_CAPTION or WS_THICKFRAME));   SetWindowLong(Handle, GWL_STYLE, ws);   Width := Width + 1;   Width := Width - 1; end;

Соответственно, возврат в неполноэкранный режим тоже надо делать через WinAPI...

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:24

Цитата(Quadr0 @ 20.6.2005, 02:12)

подходит к этому без особого энтузиазизма. Форма сначала прячется вообще. Реанимровать её удаётся ShowWindow(Handle, SW_SHOWNORMAL), но никакого заголовка и бордера при этом не видно. Меня спас только WS_OVERLAPPEDWINDOW, за что ему низкий поклон.

ну дык еще бы , WinAPI сделал всё так как положено, т.е. так как ты написал
Там вместо and надо or, да и вообще, лучше перед переходом в полноэкранный режим запомнить стиль (ws), а потом при возврате его восстановить...

Код

var oldws : integer; procedure TMainForm.FullScrenn(Sender: TObject);     var       ws : integer;     begin       ShowWindow(Handle, SW_MAXIMIZE);       oldws := GetWindowLong(Handle, GWL_STYLE);       ws := oldws and (not (WS_BORDER or WS_CAPTION or WS_THICKFRAME));       SetWindowLong(Handle, GWL_STYLE, ws);       Width := Width + 1;       Width := Width - 1;     end; procedure TMainForm.WindowMode(Sender: TObject);     begin       SetWindowLong(Handle, GWL_STYLE, oldws);       Width := Width + 1;       Width := Width - 1;     end;

Добавлено @ 12:04

Цитата(Quadr0 @ 20.6.2005, 02:12)

Возможно

А ты проверь...

Цитата(Quadr0 @ 20.6.2005, 02:12)

С какого перепугу? Это исключено. Или ты имеешь ввиду теряет свой Хендл(0)?

Это ты зря... Веб-браузер вообще вещь такая, с которой нужно бережно обращаться... Потеря содержимого возможна , почитай ту тему - при смене родителя содержимое терялось из-за того, что уничтожалось окно. В твоём случае вполне возможно что такая же байда... Вот только непонятно, зачем он исчезал ?...

Цитата(p0s0l @ 20.6.2005, 02:21)

Скорее всего это происходит из-за того, что пересоздаются окна

угу

Quadr0 если ты в енто не веришь... то можеш сам проверить. Скопируй файл Controls.pas в директорию... где у тебя находится твой проект. И замени в нем процедуру CMRecreateWnd на код(см. ниже). А также выстави у твоего WebBrowser.Tag в 1(WebBrowser.Tag=1).

Код

procedure TWinControl.CMRecreateWnd(var Message: TMessage); type  TX=record   Parent:TComponent;   D:Pointer;  end; var   WasFocused: Boolean;   fW:TList;   X:^TX;   i:integer;   p:TAlign; begin   fW:=TList.Create;   if FHandle <> 0 then   begin     if FWinControls <> nil then       for I := FWinControls.Count - 1 downto 0  do        begin         if TWinControl(FWinControls[I]).Tag=1 then          begin           New(X);           X^.D:=FWinControls.Items[i];           X^.Parent:=TComponent(X^.D).GetParentComponent;           Windows.SetParent(TWinControl(X^.D).Handle,0);           fW.Add(X);           FWinControls.Delete(I);          end;        end;   end;   WasFocused := Focused;   DestroyHandle;   UpdateControlState;   if WasFocused and (FHandle <> 0) then Windows.SetFocus(FHandle);   for i:=fW.Count-1 downto 0 do    begin     X:=fW.Items[i];     FWinControls.Add(X^.D);     Windows.SetParent(TWinControl(X^.D).Handle,TWinControl(X^.Parent).Handle);     p:=TWinControl(X^.D).Align;     TWinControl(X^.D).Align:=alNone;     TWinControl(X^.D).Align:=p;     Dispose(X);     fW.Delete(i);    end;   fW.Free; end;

Ну а теперь... можеш сделать форме BorderStyle := bsNone и ни чего не исчезает .

Это сообщение отредактировал(а) Girder - 23.6.2005, 09:24

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:27