Lazarus fpCEF3 - Учебный проект 1 - первый запуск
В первом проекте мы только лишь запустим браузер с любой открытой веб-страницей
(если вы ещё не подключили fpCEF3, то узнайте как это сделать: подключение веб-браузера в Lazarus).
Можно выбрать любую, но рекомендую yandex.ru, чтобы ссылки открывались не только в активном окне, но и в отдельных окнах.
В инспекторе объектов можно менять свойства браузера, а так же задавать свои процедуры для обработки некоторых событий браузера.
В Project1 ничего не будем менять, кроме стартовой страницы - проверим работу нашего браузера по-умолчанию.
Создадим одну форму (главную) размером 600х400 с единственным контролом-компонентом TChromium, который растянем на всю форму:
Anchors: [akTop,akLeft,akRight,akBottom],
а так-же зададим свойство DefaultIrl: https://www.yandex.ru/


Работу нескольких объектов (окон) браузера можно изучить самостоятельно, но я их буду запрещать в дальнейших проектах, оставляя только один объект TChromium на форме, ведь мы-же пока не собираемся писать собственный браузер?
Для навигации по всем страницам этого раздела сайта используйте иконку меню или ссылку Навигация в строке навигации.
project1.lpr
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit1.pas
unit Unit1;
interface
{$mode objfpc}{$H+}
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, cef3lcl;
type
{ TForm1 }
TForm1 = class(TForm)
Chromium1: TChromium;
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.

