Zitat:
Es kann aber trotzdem Passieren, das die Prozedur noch einmal aufgerufen wird.
Das glaube ich nicht, wenn ich das Ganze ins OnCloseQuery lege? Wenn man ein ganz einfaches Programm macht, wo nur die TChromium Komponente geladen wird die eine Webseite anzeigen soll dann besteht das selbe Problem. Somit liegt es nicht am Timer.
Code:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, cefvcl;
type
TForm1 = class(TForm)
Chromium1: TChromium;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Chromium1.Browser.MainFrame.LoadUrl('http://www.delphipraxis.net');
end;
end.