Hallo Leute,

ich habe auf einem Fenster 4 TWebBrowser, deren Inhalt in einem Thread aktualisiert wird. Inhalte in die Browser zu stellen, klappt auch wunderbar über die Methode (welche man auch im Inet findet):

zusammenfalten · markieren

Delphi-Quellcode:

procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: String);
var
  myDocument: OleVariant;
begin

  //falls nötig, leere Seite anzeigen
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank');

  //HTML-Code in TWebBrowser.Document schreiben
  myDocument := AWebBrowser.Document;
  myDocument.Clear;
  myDocument.Write(AHTMLCode);
  myDocument.Close;
end;

Jetzt soll aber jeweils das Fenster, was gerade aktualisiert wird, eine andere Hintergrundfarbe als die anderen bekommen. Und ich weiss absolut nicht, wie ich das machen soll. Wandel ich diese Methode um und entferene myDokument.Clear und gebe nur den anderen 3 fenstern das body-Attribut BGCOLOR mit einer Farbe als String mit, wird trotzdem jeweils der ganze Fensterinhalt gelöscht, der soll ja aber erhalten bleiben sondern lediglich die Hintergrundfarbe soll sich ändern.

Hat ihr jemand eine Idee wie ich das machen kann?

Ok, hat sich erledigt, habe die Komponente HTMLLite entdeckt, die um einiges mehr komfortabler ist als TWebBrowser.

Trotzdem - es könnte ja sein, dass jemand auf die vollwertige (frames, printing, ...) Browser-Komponente nicht verzichten will oder kann:

markieren

Delphi-Quellcode:

function WebColor(c: TColor): Integer;
begin
  Result := Swap(LoWord(c)) shl 8 or Lo(HiWord(c));
end;

procedure TWebForm.DemoButtonClick(Sender: TObject);
begin
  WebBrowser.OleObject.Document.body.style.backgroundColor := WebColor(clRed);
end;

Grüße vom marabu