Problem mit einer Unit

[LoW_FloW]

Ich habe eine Unit erstellt, die mir Objekte für das HaputFormblatt erstellen soll...

Der folgende Quelltext funktioniert aber nicht so recht:

Delphi-Quellcode:

unit CreateForm;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, Buttons, ImgList, ComCtrls;

procedure CreateLoadingForm;

var lblLade2: TLabel;

implementation 

uses uForm1;

procedure CreateLoadingForm;
begin
  lblLade2.Create(nil);
  with lblLade2 do
  begin
    Caption := 'Lade...';
    Font.Color := clWindow;
    Font.Name := 'Comic Sans MS';
    Font.Size := 30;
    Font.Style := [fsBold];
    Left := 442;
    Top := 688;
    Transparent := true;
  end;
end;
  

end.

Ich habe mal nen Screenshot vom Fehler gemacht und zu diesem Thread angehängt.

Vielen Dank im Vorraus 8).

[Sanchez]

Du hast sowas wie nen Standardfehler gemacht

Ein Objekt wird nicht so
  lblLade2.Create(nil); erzeugt, sondern auf diese Weise:

  lblLade2 := TLabel.Create(nil);

[LoW_FloW]

Danke , jetzt gibt jetzt keinen Fehler mehr !

Doch ein weiteres problem ist aufgetreten: Das label wird nicht auf dem Formblatt angezeigt .

[Sanchez]

Kann es auch gar nicht.

Du musst entweder beim Create den Besitzer angeben:

 lblLade2 := TLabel.Create(Formblatt); oder den Parent setzen:

 lblLade2.Parent := Formblatt; Beachten solltest du, dass du alle Komponenten die du mit .Create(nil) erzeugst auch wieder selber freigeben musst. Ansonsten werden sie vom angegebenen Formular freigegeben, wenn das Formular zerstört wird.

[Luckie]

Er sollte beides angeben, wobei der Parent für das Zeichnen verantwortlich ist und der Besitzer für den Speicher.

[LoW_FloW]

Vielen dank euch beiden...JETZT GEHT ALLES