Der genaue Fehler lautet:
"Zugriffsverletzung bei Adresse ...... im Modul vcl70.bpl"
So sieht übrigens das Interface aus:
Delphi-Quellcode:
ICustomAppServices = interface
['{FC008336-1557-4A5E-963C-5D796E620E64}']
function GetValue : integer;
function GetApplication: TApplication;
function GetFont: TFont;
property Value : Integer read GetValue;
property Application: TApplication read GetApplication;
property Font: TFont read GetFont;
end;
Im Programm wird z.B. die Font über folgende Funktion geholt:
Delphi-Quellcode:
function TCustomAppServices.GetFont: TFont;
begin
result:= FFont;
end;
Das Font-Objekt erstelle ich zuvor in der Create-Anweisung von TCustomAppServices...
Delphi-Quellcode:
TCustomAppServices = class(TupfStandardApplicationServices, ICustomAppServices)
FFont: TFont;
function GetValue : integer;
function GetApplication: TApplication;
function GetFont: TFont;
constructor Create;
destructor Destroy;
end;
... wobei ich mich gerade frage, ob es denn hier überhaupt eine Create Anweisung gibt,
da im Initialisierungs-Teil des Plug-In Systems "RegisterClass" steht....
Ich werde das mal prüfen
Gruß
Pfoto