Warum Zugriffsverletzung bei Adresse ...

[Bencher]

Ich erstelle zur Laufzeit Ein TabSheet mit einen Webbrowser das funktioniert auch super

Code:

TabSheet:=TTabSheet.Create(Self);
 with TabSheet do begin
  Align := alClient;
  Parent := PageControl;
 end;
 TabSheet.PageControl := PageControl1;
 Webbrowser := TWebbrowser.Create(TabSheet);
 Webbrowser.Align := alClient;
 TOLEControl(Webbrowser).Parent := TabSheet;

jetzt wollte ich noch den Title der Website in der Titelleiste anzeigen lassen mit

Code:

Webbrowser.OnTitleChange(Form1, Text);

nur kommt dabei immer Zugriffsverletzung
Kann mir jemand helfen
Danke

[Luckie]

Kommt mir etwas komisch vor OnTitleChange klingt mehr nach einem Ereignis, als mach einer Eigenschaft von TWebBrowser.

[Bencher]

so kann ich es aber aufrufen, weil ja visuell kein webbrowser da ist

[Luckie]

Ich bestreite ja auch nicht, dass es das Ereignis nicht gibt. Aber mit einem Ereignis kann man keine Eigenschaft ändern.

[Bencher]

wie muß ich es denn da machen
hast du einen tip

[Luckie]

Kuck dir mal die Eigenschaften von TWebbrowser an. Mehr kann ich dir leider auch nicht helfen, da ich die Komponente nicht kenne.

[Phoenix]

Weil dem Event 'OnTitleChange' gar keine Methode zugewiesen wurde (Das ist keine Funktion!).

Du musst also noch das Event machen:

Delphi-Quellcode:

procedure TForm1.OnWebBrowserTitleChange(Sender: TObject; const Text: WideString);
begin
   // hier z.B. die Caption ändern
   if Sender is TForm then
      (Sender as TForm).Caption := Text;
end;

// und dann bei:
Webbrowser := TWebbrowser.Create(TabSheet);
Webbrowser.Align := alClient;
// noch das Event zuweisen:
Webbrowser.OnTitleChange := OnWebBrowserTitleChange;

Dann klappst auch mit dem Event

[Bencher]

Ich krieg das nicht hin
Wenn ich die Prozedur erstellen will und TForm1. eintippe kommt kein OnWebbrowserTitleChange

PS. Habs hingekriegt mußte ja noch oben deklarieren

[mytar]

Zitat von Bencher:

Wenn ich die Prozedur erstellen will und TForm1. eintippe kommt kein OnWebbrowserTitleChange

PS. Habs hingekriegt mußte ja noch oben deklarieren

Du kannst die procedure OnWebbrowserTitleChange heißen wie du willst.
Sie muss nur die selbsten Parameter haben welche das OnTitleChange-Event von TWebbrowser
verlangt.

greetz
mytar

[Phoenix]

Zitat von mytar:

Du kannst die procedure OnWebbrowserTitleChange heißen wie du willst.
Sie muss nur die selbsten Parameter haben welche das OnTitleChange-Event von TWebbrowser verlangt.

Jupp. Das schon, aber wenn die so ähnlich heisst weiss man wenigstens hinterher noch, wofür das Event auch da ist. Ein DoWhatIWant ist zwar nett, aber ob man beim Lesen vom Code ahnt das das ne Caption ändert...?