Forum > Portuguese

Como criar, mover e redimencionar componentes em runtime?

(1/1)

meulinux:
Boa pessoal,

Estou querendo simular uma IDE, faço um clique num botão e ele cria um componente, digamos... um TEdit dentro de um determinado TPanel; podendo ser qualquer um outro componente, Label, Memo,...

Ao selecionar este componente eu possa mudar as propriedades dele. Eu fiz isso a muito tempo no Delphi, mas não me lembro como foi nem tenho mais os fontes.

Não quero o programa prontinho, apenas a parte de como inserir um componente em um TPanel e como movimentá-lo dentro desse TPanel já criado no projeto.

Agradeço qualquer ajuda

jmpessoa:

//Example Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
   auxButton: TButton;
begin
     auxButton:= TButton.Create(Panel1);
     auxButton.Left:=195;   //  <<----------------------------
     auxButton.Caption:= 'On the fly!';
     auxButton.OnClick:=@ButtonOntheFlyClick; //complete here!
     auxButton.Visible:=True;
     Panel1.InsertControl(auxButton);
end;

//Have Fun!

Navigation

[0] Message Index