Avatar billede cool-wil Nybegynder
07. april 2002 - 22:46 Der er 30 kommentarer og
2 løsninger

webbrowser og nye windows

dette spm er sådan set en efterfølger til http://www.eksperten.dk/spm/192981 :-)

Stoney kom med en kode, til min onnewwindow event i min twebbrowser, som ser sådan ud:procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin
NewWindow := TForm1.Create(self);

NewWindow.Show;
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;


problemet med denne kode, er at nye popup windows, bliver i samme vindue som min primære browser( der skal gerne være 2 vinduer nede i prosess linien, hvis der kommer en ny pop up....hvordan får jeg den til det?

og desuden vil jeg gerne have at vide, hvordan jeg åbner et nyt browser vindue, lige som ie`s filer/nyt vindue

nogen ide?

wil/

Avatar billede 3string Nybegynder
07. april 2002 - 23:25 #1
Jeg kan ikke hjælp dig med koden, men kan du ikke bruge en af de der kommandoer til at starte andre programmer med og så bare starte ie op.

I det ovenstående eks. bruger du også webbrowseren og der kan du hente url'en og bruge til at starte et nyt ie op.

Håber det hjælper.

/Allan
Avatar billede stoney Nybegynder
07. april 2002 - 23:28 #2
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewForm1 : TForm1 ;
begin
  try
  NewForm1 := TForm1.Create(Application);
  ppDisp := NewForm1.WebBrowser1.ControlInterface ;

  NewForm1.Show;
  except
    showmessage('Fejl, nyt vindue kan ikke åbnes');
end;
end;


Stoney
Avatar billede dkn Nybegynder
07. april 2002 - 23:32 #3
brug params i dit main program.

Eg i oncreate:
if paramcount > 0 then
begin
webbrowser1.navigate(paramstr(1));
exit;
end;

Når der kommer et popup vindue:
//Uses Shellapi;
Shellexecute(0,'open', application.exename, URLSom skal åbnes,'',sw_shownormal);


erstat "URLSom skal åbnes" med den string som indeholder popup vinduets url. Tror sku det virker så, har ikke testet.
Avatar billede cool-wil Nybegynder
08. april 2002 - 09:16 #4
stoney> din kode, virker lige som min( den jeg viste)
der kommer stadivæk kun 1 window, i presess linien, i stedet for 2...
har du evt. en anden kode som kunne afhjælpe dette problem?
Avatar billede stoney Nybegynder
08. april 2002 - 10:03 #5
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TForm1;
begin
NewWindow := TForm1.Create(self);    <----  ændre self til application

NewWindow.Show;
ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;

Stoney
Avatar billede cool-wil Nybegynder
08. april 2002 - 11:42 #6
mm dur ikke, hvis jeg fjerne (self) og sætter (application) ind, sker der intet, når jeg går ind på en side, hvor jeg ved der er popups...men når jeg så trykker på et popup link, så laver den et nyt vindue,inde i samme windows som mainwin

mmm nogen ide?
Avatar billede cool-wil Nybegynder
08. april 2002 - 11:48 #7
for at du kan forstå hvad jeg har gang i kunne du lige se mit screenshot her: www.asio.dk/fejl.jpg

browseren har her åbnet 2 windows, og det ene virker fint nok( det første), men den nye popup, popper up i samme app på prosses linien, og har ingen title inde i sig...mmmm ???
Avatar billede cool-wil Nybegynder
08. april 2002 - 11:55 #8
ændring, title går over til den popup som kommer op, så title i mainform bliver title fra den nye form, ik så godt...
Avatar billede stoney Nybegynder
08. april 2002 - 13:30 #9
jeg kigger på det i aften

Stoney
Avatar billede cool-wil Nybegynder
08. april 2002 - 16:00 #10
tak lyder godt stoney:-)
Avatar billede cool-wil Nybegynder
09. april 2002 - 00:19 #11
fik du set på noget kode stoney?
Avatar billede stoney Nybegynder
09. april 2002 - 08:43 #12
Hej cool-wil

Jeg har kigget på det uden den store succes.
Det er godt nok lidt tricky.
Jeg vender tilbage senere.

Stoney
Avatar billede cool-wil Nybegynder
09. april 2002 - 17:47 #13
oki lyder godt:-)
Avatar billede cool-wil Nybegynder
09. april 2002 - 17:48 #14
den skal vel til at starte en kopi af sig selv,når den finder et pop up, eller?
Avatar billede cool-wil Nybegynder
12. april 2002 - 09:17 #15
nogen løsning endnu?
Avatar billede dkn Nybegynder
12. april 2002 - 13:42 #16
prøv det jeg skrev fx, ligesom IE virker
Avatar billede cool-wil Nybegynder
12. april 2002 - 16:25 #17
mm det er jo ikke rigtig det jeg leder efter dkn:-)
Avatar billede dkn Nybegynder
12. april 2002 - 17:36 #18
hvad leder du efter så?
Avatar billede cool-wil Nybegynder
12. april 2002 - 18:31 #19
en kode til popup, som ikke laver et ekstra vindue, i mainformen, men åbner en ny app på prosess linien
Avatar billede dkn Nybegynder
12. april 2002 - 19:14 #20
det gør det faktisk det jeg skrev.
Skal jeg lave en demo til dig?
Avatar billede cool-wil Nybegynder
12. april 2002 - 19:30 #21
ja tak:-)
Avatar billede cool-wil Nybegynder
12. april 2002 - 19:31 #22
du må gerne opbygge den med en comboboks, da jeg selv bruger sådan en som adresse felt
Avatar billede dkn Nybegynder
12. april 2002 - 19:49 #23
Ok, der er ikke særlig flot men virker som den skal.
www.asdev.dk/Files/webbrowser_demo2.zip

Desuden kunne du jo sende mere info med, så du ved hvor stor vindue skal være osv...
Avatar billede cool-wil Nybegynder
12. april 2002 - 21:53 #24
kelw kigger lige på den, skal lige til fest, kigger på den first thing i morgen
Avatar billede cool-wil Nybegynder
12. april 2002 - 21:58 #25
¨dkn> kunne du evt. prøve at lave en demo, som smidder alle nye browser vinduer ned i samme program fil, men ned i f.eks. en pagecontrol
så alle nye vinduer kommer til at ligge i tabs i main programmet, med nummer 1-2-3-4-5-6-7 osv?

kan det lade sig gøre?

sætter lige points lidt op:-)
Avatar billede cool-wil Nybegynder
12. april 2002 - 21:59 #26
points sat til 100:-)
Avatar billede cool-wil Nybegynder
13. april 2002 - 23:26 #27
kan du klare den dkn?
Avatar billede dkn Nybegynder
14. april 2002 - 00:27 #28
vil da se på det en dag....
Avatar billede cool-wil Nybegynder
14. april 2002 - 01:04 #29
oki, kunne være ret fedt:-)
Avatar billede cool-wil Nybegynder
14. april 2002 - 01:04 #30
håber da du vil lave en lille demo:-)
Avatar billede dkn Nybegynder
14. april 2002 - 01:55 #31
Der er lidt fejl i den, men det ser ud til den går sådan ca hvad du vil have :)
www.asdev.dk/Files/exp195102.zip
Avatar billede cool-wil Nybegynder
15. april 2002 - 09:17 #32
mange mange tak for hjælpen, til jer begge:-)
Jeres ideer og demoer virkede lige som de skulle, points til jer begge:-)

wil/
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester