Kann kein ActiveX improtieren!

[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.

Grüsse, Daniel

[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:
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!
So und ich geh jetzt zu meiner Bettina. Gute NAcht!

Grüsse, Daniel

[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

Grüsse, Daniel

[smax]

Sorry kommt aber immernoch der Fehler!

Woran kann das liegen?

[Daniel B]

Hallo,

Zitat von smax:

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

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

Grüsse, Daniel

[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

[smax]

Ok alle klar jetzt gehts!