Наш файервалл надежно зашищает внешний мир от нас.
//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 и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.