Einzelnen Beitrag anzeigen

moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#1

Klasse global verfügbar machen?

  Alt 31. Mär 2009, 11:57
Moin !

Habe da eine Klasse die ich gerne aus jedem Formular raus nutzen würde. Nun könnte ich mir in jedem Formular eine eigene Instanz hernehmen. Aber geht nicht mitunter auch sowas:

Delphi-Quellcode:
program Testprog;

uses
  Forms, SysUtils,
  MainUnit in 'MainUnit.pas{MainForm},
  KlassenUnit in 'KlassenUnit.pas';

{$R *.res}

var
  TL : TKlasse;

begin
  TL := TKlasse.Create();

  Application.Initialize;
  Application.ShowMainForm := True;
  Application.MainFormOnTaskBar := True;

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.
Allerdings kommt man dann aus den Unit nicht auf die Variable TL.
Gibts da ein konstrukt mit dem das klappen könnte ?
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat