Dynamisches Anlegen von Labels

[remie]

Hi ich hab ein Problem und zwar will ich ein Label Dynamisch anlegen,
habe auch schon den code dafür geschriegen aber irgend wie will er nicht
vieleicht wisst ihr ja was ich Falsch gemacht habe

Code

Code:

var lb : TLable;

...

lb := TLabel.Create(self);
lb.Visible := false;
lb.Font.Size := 13;
lb.Font.Style := [fsBold];
lb.Top := 16;
lb.Left := 140;
lb.Caption := 'TEXT';
lb.Visible := true;

Thx im voraus

[Ricane]

Zitat:

Zitat von remie

Hi ich hab ein Problem und zwar will ich ein Label Dynamisch anlegen,
habe auch schon den code dafür geschriegen aber irgend wie will er nicht
vieleicht wisst ihr ja was ich Falsch gemacht habe

Code

Code:

var lb : TLable;

...

lb := TLabel.Create(self);
lb.Visible := false;
lb.Font.Size := 13;
lb.Font.Style := [fsBold];
lb.Top := 16;
lb.Left := 140;
lb.Caption := 'TEXT';
lb.Visible := true;

Thx im voraus

Also erstmal heissen die Dinger ja "TLabel", was sicherlich schon ein Problem werden dürfte...

Dann würde ich folgenden Code anwenden:

Delphi-Quellcode:

Var
  EinLabel: TLabel;

With EinLabel Do
Begin
  Create(frmMain);
  Parent := frmMain;
  Visible := True
  Font.Size := 13;
  Font.Style := [fsBold];
  Top := 16;
  Left := 140;
  Caption := 'TEXT';
End;

Das dürfte funzen...

Beste Grüsse,

Ricane



PS: Wirft er bei der Lable Nummer keine Exception aus ?!?!?! :gruebel:

[nailor]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lb : TLabel;
begin
  lb := TLabel.Create(self);
  lb.Font.Size  := 13;
  lb.Font.Style := [fsBold];
  lb.Top        := 16;
  lb.Left       := 140;
  lb.Caption    := 'TEXT';
  lb.Visible    := true;

  //Form1.InsertControl(lb);
  //lb.Parent := Form1;
end;

eine von den auskommentierten zeilen reinpacken. egal welche, tun beide

[xineohp]

moin,

du must noch die parent Eigenschaft setzen:

Delphi-Quellcode:

lb.parent := Form1;

EDIT: zu langsam ... :stupid:

[remie]

jo danke hat gefunzt