[Delphi] Label per Mausklick erzeugen

[almdudler777]

Hallo Leute,

ich würde gerne wenn man auf nen Button klickt nen neues Label erzeugen...

procedure TForm1.Button1Click(Sender: TObject);
var neu : TLabel;  I: integer; Font : TFont;
    Bild : TImage;
begin
  randomize;
  neu := TLabel.Create(Form1);
  Font := TFont.Create;
  Font.Name := 'ARIAL';
  neu.Top :=  500;
  neu.Left := 500;
  neu.AutoSize := TRUE;
  neu.Width := 100;
  neu.Height := 100;
  Neu.Font := Font;
  neu.Caption := 'Test Label lalala';
  neu.Name := 'label_'+inttostr(random(20005));
  neu.Visible := true;
  neu.Enabled := True;
  neu.Layout := tlTop;
  neu.Repaint;
  {Bild := TImage.Create(Form1);
  Bild.Top := 0;
  Bild.Left := 0;
  Bild.Name := 'NeuesBild';
  Bild.Picture := Image1.Picture;
  Bild.AutoSize := true;
  Bild.Visible := true;
  Bild.BringToFront;
  Bild.Repaint;
  Bild.Show;   }


  Button1.Enabled := false;
  Memo1.Clear;
  for I := 0 to Form1.ComponentCount - 1 do
  begin
    Memo1.Lines.Add(Form1.Components[I].Name);
  end;
    
end;

erzeugen tut er das nur ich kann es nicht sehen warum? muss irgendwo nen syntax fehler sein nur wo? (bin noch relativ frisch in Delphi/Pascal) xD

Danke schon mal...


PS: für Editfelder habe ich schon ne lösung gefunden nur die brauche ich erst später (wenn überhaupt)


almi

 

[Icy]

Was fehlt:

neu.Parent := Form1;