Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Новые страницы в TWebBrowser Найти похожие ветки
← →
XiAndr (2006-03-25 19:26) [0]Вот код:
procedure Form1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var Cancel: WordBool);
begin
Cancel := true;
end;
Ссылка открывающач новое окно в окне просто не работает, с шифтом тоже, короче теперь, новую страницу открыть просто нельзя, что сделать, чтобы она открывалась в окне моего проекта?
← →
palva © (2006-03-25 20:19) [1]Может быть так?
Cancel := false;
← →
XiAndr (2006-03-25 20:53) [2]Так открывается IE
← →
palva © (2006-03-25 21:33) [3]Это зависит от свойства ссылки. Если там указано target="_new", то будет открывать в новом окне. Вы смотрели, как выглядит ссылка в html-коде?
← →
Dmitrij_K (2006-03-25 22:22) [4]
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
Form1 : TForm1;
begin
Form1 := TForm1.Create(Application);
ppDisp := Form1.WebBrowser1.DefaultDispatch;
Form1.Show
end;
← →
XiAndr (2006-03-26 14:40) [5]Теперь новое окно открывается, но внизу в списке окон отображается только одно, и при нажатии кнопки закрыть закрываются все окна.
← →
Dmitrij_K (2006-03-26 14:48) [6]
> в списке окон отображается только одноtype
TForm1 = class(TForm)
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
And, in the implementation:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with params do
ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
> и при нажатии кнопки закрыть закрываются все окна
Ну это уже извиняй, при закрытии главного окна закрываются все.
← →
XiAndr (2006-03-26 15:36) [7]Новый прикол, теперь внизу отображается одно лишнее окно, го увидеть его нельзя.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
