Einzelnen Beitrag anzeigen

Hilde

Registriert seit: 9. Jan 2010
2 Beiträge
 
Delphi 2007 Professional
 
#1

Eigenen HTML-Code in TWebbrowser einfügen

  Alt 9. Jan 2010, 15:07
Hallo Leute,

mit folgendem Code lese ich die Anzahl der Formulare einer Seite aus:

Delphi-Quellcode:
function WebFormGet(const formNumber: integer; const document: IHTMLDocument2): IHTMLFormElement;
var
  forms : IHTMLElementCollection;
begin
  forms := document.Forms as IHTMLElementCollection;
  result := forms.Item(formNumber,'') as IHTMLFormElement
end;
Damit der Anwender sofort sieht, welches Formular auszufüllen ist, möchte ich den HTML-Code der aufgerufenen Seite so verändern, dass die "Formularnummer" im Webbrowser angezeigt wird.

Der HTML-Code sollte wie folgt erweitert werden:

Bei form(0) sollte an der entsprechenden Stelle im HTML-Code statt bisher
"<form" nun neu
"<h1><span style="background-color: rgb(255, 255, 0); font-size: larger; font-family: Arial; color: rgb(0, 0, 0);">Formular 1</span></h1>
<form" stehen.
Bei form(1) --> alt: "<form" ersetzen mit: "<h1><span style="background-color: rgb(255, 255, 0); font-size: larger; font-family: Arial; color: rgb(0, 0, 0);">Formular 2</span></h1>
<form"
Bei form(2) --> alt: "<form" ersetzen mit: "<h1><span style="background-color: rgb(255, 255, 0); font-size: larger; font-family: Arial; color: rgb(0, 0, 0);">Formular 3</span></h1>
<form"
.. usw.

Wie kann jetzt ich den zusätzlichen HTML-Code an der richtigen Stelle einfügen?

Schönen Gruß
HS
  Mit Zitat antworten Zitat