class TForm1 : public TForm
{
//.....
public:
TLabel *Label;
};
//......
Label = new TLabel(this);
Label ->Height = ...;
Label->Width = ...;
Label->Top = ...;
Label->Left = ...;
Label->Caption = ...;
Label->Parent = this;
}
добавление на форму
Как ПРОГРАМНО добавить помпонент (TLabel) на форму?
Это с++, думаю на delphi he силино отличатся будет.
Код:
Для начала необходимо описать объект типа TLabel, подойдет раздел var или можно в описании формы:
var
Label1: TLabel;
затем нужно создать объект(вызвать конструктор, задать начальные значения свойств), например при нажатии кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Label1) then
begin
Label1 := TLabel.Create(Self);
Label1.Left := 1;
Label1.Top := 1;
Label1.Caption := 'Hello';
Label1.Parent := Self;
end;
end;
И не забудь что любой динамически созданный объект необходимо уничтожать вручную, например при закрытии окна:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(Label1) then Label1.Free;
end;
PS: Assigned - возращает true, если объект создан и false в противном случае.
Self - в данном случае ссылка на форму.
Parent - то, на чем объект будет находится
var
Label1: TLabel;
затем нужно создать объект(вызвать конструктор, задать начальные значения свойств), например при нажатии кнопки:
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(Label1) then
begin
Label1 := TLabel.Create(Self);
Label1.Left := 1;
Label1.Top := 1;
Label1.Caption := 'Hello';
Label1.Parent := Self;
end;
end;
И не забудь что любой динамически созданный объект необходимо уничтожать вручную, например при закрытии окна:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(Label1) then Label1.Free;
end;
PS: Assigned - возращает true, если объект создан и false в противном случае.
Self - в данном случае ссылка на форму.
Parent - то, на чем объект будет находится
piroman17 тему закрываю. на будущее: [color=red]используй поиск[/color].
