My code samples:
- Code: Select all
procedure TForm1.btn2Click(Sender: TObject);
var i:Integer;
begin
for i := 0 to lstChapter.Count-1 do
begin
Chromium1.LoadURL(lstChapter[i]);
while Chromium1.IsLoading do
begin
Sleep(10);
Application.ProcessMessages;
end;
Chromium1.Browser.MainFrame.GetSourceProc(onGetLessonProc);
end;
end;
Thanks!