Jak podczas działania programu stworzyć komponent TLabel ?
Procedure TForm1.ButtonClick(Sender: TObject);
var
Label1 : TLabel;
Begin
Label1 := TLabel.Create(Self);
Label1.Parent := self;
Label1.Top := 50;
Label1.Left := 50;
Label1.Caption := 'To jest nowy label';
end;
var
Label1 : TLabel;
Begin
Label1 := TLabel.Create(Self);
Label1.Parent := self;
Label1.Top := 50;
Label1.Left := 50;
Label1.Caption := 'To jest nowy label';
end;
Materiał dodany przez użytkownika: alphan