Delphi7 Webbrowser: 3 Fragen! (wahrscheinlich simpel)

[Delphi-_-N00b]

Hallo,
ich bastel zurzeit an nem eigenen Browser. Gleich 3 fragen:

1. Ich wollte eine Lesezeichenfunktion einbauen. Das klappt auch ganz gut

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
begin
Label2.caption:=label2.caption+Edit1.Text+', ' ;
end;

Jetzt meine Frage. Geht es, dass statt dem Komma ein Zeilenumbruch steht? So dass jede Seite ne eigene Zeile hat? Wenn ja wie?


2.kann ich in einer message (showmessage('xxx')) den text eines Labels einfügen? Für eine Verlauf funktion? Wenn ja wie?

3. Die wahrscheinlich schwerste Frage: Kann ich es so machen das sich die edit komponente aktualisiert?
bei mir ist es so das, wenn ich im browser fenster auf iwelche links klicke, die edit-komponente trotzdem auf der vorherigen seite bleibt.


Schreibt euch die finger Wund :wink:

[Mithrandir]

Willkommen im Forum. :dp:

1. Falsche Sparte!

2. Eine Frage pro Thread!

3. Suchfunktion!

Suchbegriffe zum Beispiel "Zeilenumbruch String", "TWebbrowser Tutorial".




So als kleiner Hinweis an Neuankömmlinge. ;)

[tkoenig]

Hi.

Zu erstens: Jo geht, der Code für Zeilenumbruch in Strings ist #13#10

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
begin
  Label2.caption:=label2.caption+Edit1.Text+#13#10;
end;

Zu zweitens:

Delphi-Quellcode:

showmessage('xxx' + label1.caption);

Bei drittens kann ich dir leider nicht folgen... Was genau willst du updaten?


Tante Edit sagt: Entschuldigung, Daniel, da war ich zu fix. Ist korrigiert.

[Mithrandir]

Zitat:

Zitat von tkoenig

Hi.
Zu erstens: Jo geht, der Code für Zeilenumbruch in Strings ist #13 [...]

Dann aber bitte richtig: #13#10

;)

[Delphi-_-N00b]

oK danke für die produktiven antworten von tkoenig

hat alles so geklappt.
3. Also wenn man z.B. www.google.de eingibt. Dann kommt man auf die Seite. WEnn man aber bei google nen suchbegriff eingibt und auf der nächsten seite
z.B http://www.google.de/#hl=de&source=h...0dff7b8f724f7e
ist, dann steht in der edit immernoch google.de.
Meine frage: Kann man das updaten lassen, sodass dann nichtmehr google, sondern oben genannter link steht?

[Bernhard Geyer]

Zitat:

Zitat von Daniel G

Dann aber bitte richtig: #13#10

Jedenfalls unter Windows.

MacOS und Linux nimmt jeweils nur eines davon.

[tkoenig]

Du musst deine akutell geladene Seite als TEXT in das Edit-Feld schreiben.

Delphi-Quellcode:

edit1.Text := URL;

und das am Besten in der Prozedur schreiben, die deine WebSite lädt, da dort ja irgendwo schon die URL als Variable vorliegt.

[dominikkv]

Im Ereignis OnDocumentComplete gibts den Parameter URL.
Ansonsten: klick

Edit:

Zitat:

Zitat von tkoenig

und das am Besten in der Prozedur schreiben, die deine WebSite lädt, da dort ja irgendwo schon die URL als Variable vorliegt.

Nicht, wenn er einen Link im Browser anklickt und damit navigiert.

[Delphi-_-N00b]

Das hab ich jetzt noch nicht verstanden!

also was muss ich wo schreiben um das editfeld zu aktualisieren?

[dominikkv]

Du klickst auf deinen TWebBrowser auf deiner Form, im ObjectInspector gehst du auf "Ereignisse", dort suchst du das Ereignis OnDocumentComplete, machst einen Doppelklick auf die weiße Flächs daneben, und schreibst in die Prozedure, die Delphi dir erstellt hat

Delphi-Quellcode:

procedure TfrmMain.MyWebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  MyURLEdit.Text := URL;
end;

Oder du verwendest das Ereignis BeforeNavigate2, da musst du aber noch die richtige URL rausfinden, weil das Ereignis mehrmals aufgerufen wird.