Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[54.163.14.144] |
|
Сообщ.
#1
,
|
|
|
Здравствуйте!
Подскажите, пожалуйста, почему так происходит?: В общем, хочу отследить окончание загрузки, кликаю по OnLoadEnd, и у меня появляется две ошибки: [dcc32 Error] Unit1.pas(32): E2003 Undeclared identifier: 'ICefBrowser' [dcc32 Error] Unit1.pas(33): E2003 Undeclared identifier: 'ICefFrame' Как исправить? |
Сообщ.
#2
,
|
|
|
Задекларировать идентификатор.
|
Сообщ.
#3
,
|
|
|
Как это сделать?
|
Сообщ.
#4
,
|
|
|
Напечатать текст на клавиатуре.
|
Сообщ.
#5
,
|
|
|
Цитата Gonarh @ Напечатать текст на клавиатуре. Вы шутите так, да?... |
Сообщ.
#6
,
|
|
|
Что и куда печатать?:
|
Сообщ.
#7
,
|
|
|
Какой вопрос такой и ответ
Добавлено Цитата DDim1000 @ Что и куда печатать?: Программный код в IDE. |
Сообщ.
#8
,
|
|
|
Вот, пожалуйста:
https://disk.yandex.ru/i/erTz-I_OH6vtIw unit Unit1; {$I cef.inc} interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uCEFWinControl, uCEFWindowParent, uCEFChromiumCore, uCEFChromium, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel2: TPanel; Panel3: TPanel; CEFWindowParent1: TCEFWindowParent; Button1: TButton; Panel4: TPanel; Panel5: TPanel; Label1: TLabel; Edit1: TEdit; Chromium1: TChromium; Chromium2: TChromium; CEFWindowParent2: TCEFWindowParent; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean); procedure Chromium2LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses uCEFInterfaces; procedure TForm1.Button1Click(Sender: TObject); begin Chromium1.LoadURL('ya.ru'); end; procedure TForm1.Chromium2LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer); begin ShowMessage('------'); end; procedure TForm1.FormCreate(Sender: TObject); begin Chromium1.CreateBrowser(CEFWindowParent1); end; procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if not(Chromium2.CreateBrowser(CEFWindowParent2)) then Chromium2.CreateBrowser(CEFWindowParent2); end; end. |
Сообщ.
#9
,
|
|
|
Другое дело, подключи модуль uCEFInterfaces и будет тебе счастье.
|