TWebBrowser -> Verknüpfung Kopieren

[Wadim]

hi,

hab folgendes problem:

habe einen internet browser womit ich die seiten mit einem edit text öffnen kann- klapt alles aber jetzt hab ich ein kleines problem!

wenn ich z.b eine internet seite mit meinem 'TWebBrowser' öffne und dann mit rechter taste auf einen button klicken, der mich auf eine andere oder nächste seite bringen soll, und dann auf verknüpfung kopieren gehe und sie kopiere- sie danach in ein edit text oder was anderes einfügen will geht es nicht , heißt er kopiert es nicht- und wenn ich dann auch auf einen button klicke öffnet er mir die seite mir dem normalen internet explorer (standart)- woran kann es liegen?

benutze folgenden befehl:


procedure TForm1.Button1Click(Sender: TObject);
var flag : olevariant;
begin
flag := 14;
webbrowser1.navigate (edit1.text) , Flag);
end;

end.

danke für hilfe

[Alexander]

Probier mal ganz am Ende deines Quellcodes das hier zu schreiben:

Delphi-Quellcode:

initialization 
  OleInitialize(nil); 

finalization 
  OleUninitialize; 
end.

[Wadim]

Zitat von alexander:

Probier mal ganz am Ende deines Quellcodes das hier zu schreiben:

Delphi-Quellcode:

initialization 
  OleInitialize(nil); 

finalization 
  OleUninitialize; 
end.

also erstens:

hinter end; diese anweisung?

zweitens:

hab beides probiert hinter end; und vor aber hat immer angezeigt das, dass ein undefinierter bezeichner ist (oleintilialize und oleintialize)

[Alexander]

Auch ActiveX eingebunden?
Es muss vor dem end.

[Wadim]

Zitat von alexander:

Auch ActiveX eingebunden?
Es muss vor dem end.

nein- wie geht das?

[Alexander]

In der Uses-Klausel ganz oben musst du ActiveX mit aufnehmen...
Oder was meintest du?

[Wadim]

Zitat von alexander:

In der Uses-Klausel ganz oben musst du ActiveX mit aufnehmen...
Oder was meintest du?

wie mach ich das- mus ich einfach aktivx eigeben oder einen bestimmten komponenten einfügen (ins formblatt) oder was genau?

[Alexander]

So:

Delphi-Quellcode:

uses
 SysUtils, ..., ActiveX

[Wadim]

juuhhhhuuuuuuu- es funktioniert

großen dank an dich

[Alexander]

GErn geschehen!