Como Abrir uma Nova Janela?
:idea: Pessoal, tenho uma dúvida urgente q é a seguinte:
Estou a fazer um programa q utiliza o componente TWebbroser, só q eu ñ queria q ele abrisse as novas janelas no Internet Explorer, e sim numa nova janela do meu programa. Consegui fazer isso. Só q o meu programa ñ responde direito depois disso, ñ é uma janela individual, entendem? Por ex.: vc quer minimizar a janela, consegue e tal, mas não consegue colocar ela maximizada de novo, só dando um Alt+Tab.
Eis o código abaixo:
[b:ab91e3af32]procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
new_form: TMainForm;
begin
Application.CreateForm(TMainForm,new_form);
new_form.WebBrowser1.RegisterAsBrowser := true;
ppDisp := new_form.WebBrowser1.Application;
end;[/b:ab91e3af32]
Agradeço a quem me ajudar! :wink: [/b]
Estou a fazer um programa q utiliza o componente TWebbroser, só q eu ñ queria q ele abrisse as novas janelas no Internet Explorer, e sim numa nova janela do meu programa. Consegui fazer isso. Só q o meu programa ñ responde direito depois disso, ñ é uma janela individual, entendem? Por ex.: vc quer minimizar a janela, consegue e tal, mas não consegue colocar ela maximizada de novo, só dando um Alt+Tab.
Eis o código abaixo:
[b:ab91e3af32]procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
new_form: TMainForm;
begin
Application.CreateForm(TMainForm,new_form);
new_form.WebBrowser1.RegisterAsBrowser := true;
ppDisp := new_form.WebBrowser1.Application;
end;[/b:ab91e3af32]
Agradeço a quem me ajudar! :wink: [/b]
Stutz
Curtidas 0