Why in earlier versions there were no problems with this, not to say that the load was small, but now it is unbearable. Perhaps something needs to be configured, or it is now the specifics of all new versions.
incognito mode
Code: Select all
[b]TMainForm[/b]
procedure TMainForm.Timer1Timer(Sender: TObject); // Interval 1000
begin
Inc(FBCount);
MainForm.NewBtn.OnClick(MainForm); Button1.Caption:= IntToStr(FBCount);
if (FBCount >= 100) then begin
Timer1.Enabled:= False;
Timer2.Enabled:= True;
end;
end;
procedure TMainForm.Timer2Timer(Sender: TObject); // Interval 3 or 5 000
var
i : integer;
begin
i := pred(MDIChildCount);
while (i >= 0) do
begin
if not(TChildForm(MDIChildren[i]).Closing) then
PostMessage(MDIChildren[i].Handle, CEFBROWSER_OPEN_URL, 0, 0);
dec(i);
end;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
Button1.Enabled:= False;
Timer1.Enabled:= True;
end;
[b]TChildForm[/b]
procedure TChildForm.OpenUrl(var aMessage : TMessage);
begin
Chromium1.ClearCache;
Chromium1.LoadURL(Edit1.Text);
end;