Farbe im TWEbBrowser ändern

[marabu]

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

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