Получить или установить задний фон в TWebBrowser . Delphi , Интернет и Сети , Браузер

Delphi , Интернет и Сети , Браузер

Получить или установить задний фон в TWebBrowser

Наш файервалл надежно зашищает внешний мир от нас.

//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;

Программный код, предоставленный для Delphi, - это язык программирования и среда разработки. Он создает простое приложение с графическим интерфейсом (GUI) с компонентом TWebBrowser и тремя кнопками. Кнопки используются для загрузки веб-страницы, отображения текущего цвета фона загруженной страницы и установки цвета фона на черный.

Рассмотрим функциональность каждой кнопки:

Кнопка 1: процедура Button1Click загружает URL 'www.SwissDelphiCenter.com' в компонент TWebBrowser с помощью метода Navigate.

Кнопка 2: процедура Button2Click отображает диалоговое окно с текущим цветом фона загруженной страницы, используя свойство bgColor объекта Document.

Кнопка 3: процедура Button3Click устанавливает цвет фона загруженной страницы на черный, используя свойство bgColor.

Вот альтернативное решение для установки цвета фона веб-страницы в компоненте TWebBrowser:

procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.body.style.backgroundColor := '#000000';
end;

Код устанавливает цвет фона с помощью CSS (Cascading Style Sheets). Используется свойство body для цели <body> элемента HTML-документа, а затем свойство style для установки атрибута background-color.

В статье описано, как изменять задний фон в компоненте TWebBrowser при помощи Delphi, включая получение и установку цветового фона.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS