Einzelnen Beitrag anzeigen

jethark

Registriert seit: 5. Nov 2007
Ort: Augsburg
13 Beiträge
 
Turbo Delphi für Win32
 
#1

gelöst: Application.CreateForm

  Alt 24. Nov 2007, 02:08
Hallo,

irgendwie ist mir der Sinn der Ausführung von TApplication.CreateForm schleierhaft.
Ich hoffe ihr könnt mir da weiterhelfen, ich bin nämlich schier am verzweifeln.
Mir geht es da nur um den ersten Teil. Die Zuweisung der MainForm (ausgeblendet)
ist soweit klar. Meine Frage ist nun, warum hier die Speicherreservierung mit NewInstance dem
Aufruf des Konstruktors vorweggenommen wird?

Gruss


Delphi-Quellcode:
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(Self);
  except
    TComponent(Reference) := nil;
    raise;
  end;
Unkraut nennt man die Pflanzen, deren Vorzüge noch nicht erkannt worden sind. - Emerson -
  Mit Zitat antworten Zitat