Função para criar Label em tempo de execução

Delphi

08/02/2003

Me passem o código para eu criar Label em tempo de execução...



URGENTÍSSIMO!!!!!! :lol: :roll:


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

08/02/2003

var
x:TLabel;
begin
x:= TLabel.Create;
x.left := ?
x.Top:= ?

etc...

x.Free // para destruir :twisted:


GOSTEI 0
Anonymous

Anonymous

08/02/2003

var Legenda:TLabel;

Legenda:=TLabel.Create;


//Para Inserir-na no formulário;

Self.InsertControl(Legenda);


GOSTEI 0
Anonymous

Anonymous

08/02/2003

Porque você não utiliza labels em braco no seu aplicativo? Quando você necessitar de um, você então usa-o. Assim vc poupa rotinas desnecessárias.


GOSTEI 0
Rafael Heise

Rafael Heise

08/02/2003

Você pode usar de outras formas... se vc utiliza digamos bastante e não precisa ficar destruindo,... utiliza
with TLabel.Create(Form) do
begin
Name := ´LB1´;
Top := 10;
Left := 10;
Parent := ControlPai;
Caption := ´Texto Seu´;
end;

... bem .. acho que essas são as propriedades. ... se tiver mais alguma que tem que setar, sete ali dentro do with .. isso faz com que vc não precise declarar variáveis para cada label que vc precisar criar, mas dai vc não tem como referenciar ele via código.. dai vc teria que usar um FindComponent ou algo assim ... masss.. dai vc tem que ver qual a sua necessidade no seu sistema.... abraços


GOSTEI 0
POSTAR