@Lannes
Danke für die schnelle Antwort
Ich verstehe nicht, wie ich diese Funktion/Prozedur einbauen soll:
Delphi-Quellcode:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if Pos('
\1',
URL) > 0
then//URL ist C:\Temp\1
begin
showmessage('
Tabelle wird geladen');
Cancel := True;
//Linkausführung unterbinden
end;
if Pos('
\2',
URL) > 0
then//URL ist C:\Temp\2
begin
showmessage('
Tabelle leeren');
Cancel := True;
//Linkausführung unterbinden
end;
end;
Ich habe mir schon die Eigenschaften von TWebBrowser angeschaut aber ich habe keinen Plan wie ich das einbinden kann.
Ich Programmiere zwar schon länger mit anderen Sprachen, aber warscheinlich nicht so viel mit Delphi das ich das verstehe.
Kannst du mir bitte auf die sprünge helfen wie ich das einbaue, bzw jemand anders ?