estelle Dir eine
Unit mit der "globalen Klasse".
Diese
Unit kannst Du in alle Forms einbinden.
Da fehlt aber noch die Freigabe, am einfachsten via class destructor (der wird nach ggf. dem finalization Abschnitt der
Unit aufgerufen). Und der Konstruktor wird Create geschrieben, nicht create. Zudem sieht für mich eine entsprechende Property schöner aus:
Delphi-Quellcode:
type
TDeineKlasse = class(TObject)
private
class var
FInstance: TDeineKlasse;
constructor Create;
class function GetInstance: TDeineKlasse; static;
public
class destructor Destroy;
class property Instance: TDeineKlasse read GetInstance;
end;
implementation
class function TDeineKlasse.GetInstance: TDeineKlasse;
begin
if not Assigned(FInstande) then
FInstance := TDeineKlasse.Create;
Result := FInstance;
end;
class destructor TDeineKlasse.Destroy;
begin
if Assigned(FInstance) then
FInstance.Free;
end;