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