Наш файервалл надежно зашищает внешний мир от нас.
//You need a TWebbrowser and 3 TButtons // First load a page procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.SwissDelphiCenter.com');
end;
// Show the background color // Hintergrundfarbe herausfinden procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(WebBrowser1.OleObject.Document.bgColor);
end;
// Set the background color procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.bgColor := '#000000';
end;
В статье описано, как изменять задний фон в компоненте TWebBrowser при помощи Delphi, включая получение и установку цветового фона.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.