Kann kein ActiveX improtieren!

[smax]

Hallo,

ich wollte grad den TWebBrowser installieren und hab es so gemacht:

-> Komponenten -> ActiveX improtieren -> Microsoft Internet Controls (Version 1.1) ausgewählt -> Auf Installieren geklickt!

Nun wird mir angezeigt, dass eine Klasse mit der BEzeichung schon installiert wurde! Wenn ich aber unter ActiveX schaue finde ich da kein TWebBrowser Icon. Kann mir jemand helfen?

[Daniel B]

Hallo,

schonmal auf dem Reiter "Internet" geschaut?
Dort ist es, nicht bei ActiveX. Auch wenn es ein wenig gegen die Logik ist.

Grüsse, Daniel :hi:

[smax]

Ok ich danke dir!

[smax]

Sorry aber hab noch eien Frage und zwar wo kann ich die URL festlegen die angezeigt werden soll?

[Daniel B]

Hallo,

mach Bitte beim nächsten mal für neue Fragen auch ein neuen Thread auf.
Du legst also die Komponente aufs Formular, dann nimmst Du noch ein Button o.ä. und schribst in desen OnClick-Prozedur:

Delphi-Quellcode:

TWebBrowser.NavigateToUrl('http://delphipraxis.net');

Grüsse, Daniel :hi:

[smax]

Danke jetzt wird aber folgendes angezeigt wenn ich das Programm ausführen will:

[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'NavigateToUrl'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Daniel B]

Hallo,

sorry, mein Fehler. :oops:
nicht NavigateTourl sondern nur Navigate. Ich weiss nciht woher ich das habe, schriebe es aber immer falsch... :oops:

Grüsse, Daniel :hi:

[smax]

Es wird folgendes angezeigt:

[Fehler] Unit1.pas(30): Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Daniel B]

Hallo,

Du hast aber schon die Komponente aufs Formular gesetzt?

Grüsse, Daniel :hi:

[smax]

Sorry bin Anfänger! Wie meinst du das?

[Daniel B]

Oben bei den ganzen Komponenten, da gehst Du zum Reiter Internet. Da sind so icons. Eins davon heisst TWebBrowser, das klickst Du an und dann irgednwo auf dem Formular. Dann wird es da drauf gesetzt. Ist so ein weisses, rechteckiges Feld. Das ist der WebBrowser! Dann klappts auch mit dem Nachbarn, ääähm, Code mein ich. :mrgreen:

Grüsse, Daniel :hi:

[smax]

Bis zum weißen Feld bin ich mitgekommen aber wie kann ich es draufsetzen?

[Daniel B]

Gut, Du hast also das weisse Feld, den Browser, auf dem Formular. Das ist ja schonmal was.
Links ist so eine Übersicht über die ganzen Eigenschaften. Das nennt sich Object Inspector. Daher die Abkürzung von mir oben mit OI.
Klicke nun irgendwo auf das Formular, da wo es grau ist. Dann ist im OI Form1 ausgewählt. Bei den ganzen Eigenschaften gibts KeyPreview, danaben steht False. Auf dieses False machst Du ein Doppelklick, dann wird es zu True. Somit ist das eingeschaltet!

Der Oi hat auch so zwei Reiter, einer heisst Eigenschaften und einmal Ereignisse. Klicke nun auf Ereignisse. Dann kommt eine Auflistung der ganzen möglichen Prozeduren. Dort gibts das Ereigniss OnKeyDown, rechts ist es grau, mache auf die graue Stelle ein Doppeltklick. Dann wird im Editor-Fenster eine Prozedur angelegt und der Cursor ist schon drin.
In dieser Prozedur, zwischen begin und end, schreibst Du

Delphi-Quellcode:

  if Key = VK_RBUTTON then 
    Key := 0;

So, oben bei den ganzen Komponenten klickst Du auf den Reiter "Standard", dort gibt es ein Icon das wie ein Button aussieht und ist mit OK beschriftet. Klicke es an und dann irgendwo auf das Formular. Somit ist auch dieser auf dem Formular.
Dann machst Du ein Doppelklick drauf.
Daraufhin wird im Editor wieder eine Prozedur angelegt.

In dieser Prozedur, wieder zwischen dem begin und end, schribst Du dann das:

Delphi-Quellcode:

TWebBrowser.Navigate('http://delphipraxis.net');

Jetzt ist alles Fertig. Nun drücke F9, wenn alles geklappt hat, dann wird das Programm kompiliert und das Formular ist zu sehen/erscheint.
Dort siehst Du dann auch Deinen Button, klicke den an und lass Dich überraschen! :mrgreen:
So und ich geh jetzt zu meiner Bettina. Gute NAcht!

Grüsse, Daniel :hi:

[smax]

Hallo,

hier ist mein Code:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RBUTTON then
    Key := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TWebBrowser.Navigate('http://delphipraxis.net');
end;

Es kommt immernoch der selbe Fehler :(

Edit:

Der Fehler soll in der Zeile sein:

TWebBrowser.Navigate('http://delphipraxis.net');

[Daniel B]

Ok, einen noch zum Abschied!

Schliesse Delphi. Starte es neu, klicke im Menü auf Datei\Neu\Neu Anwendung. Setze nun wieder den TWebBrowser und den Button auf Formular. Wie das geht und wie Du dann die Prozeduren machst weisst Du ja jetzt schon.
Gute Nacht. //Endgültig :mrgreen:

Grüsse, Daniel :hi:

[smax]

Sorry kommt aber immernoch der Fehler!

Woran kann das liegen?

[Daniel B]

Hallo,

Zitat:

Zitat von smax

Delphi-Quellcode:

TWebBrowser.Navigate('http://delphipraxis.net');

Hmm, blöder Fehler, nicht "TWebBrowser", sondern "WebBrowser1" ist richtig. :oops: :D

Grüsse, Daniel :hi:

[smax]

Geht leider immer noch nicht! Wenn ich da ne 1 hinsetze kommt folgender Fehler:

[Fehler] Unit1.pas(41): Undefinierter Bezeichner: 'TWebBrowser1'
[Fehler] Unit1.pas(41): Operator oder Semikolon fehlt
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Daniel B]

Ich wiederhole die zeile einfach nochmal, vielleicht hast Du nicht gesehen das auch das grosse T wegmuss.

Hmm, blöder Fehler, nicht "TWebBrowser", sondern "WebBrowser1" ist richtig.

Grüsse, Daniel :hi:

[smax]

Ok alle klar jetzt gehts!

[Daniel B]

Halleluja, das war aber ne schwere Geburt! :cheers: :mrgreen:
Dann kann ich ja mal wieder beruhigt zur Arbeit fahren.

Grüsse, Daniel :hi: