Recent

Author Topic: Como criar, mover e redimencionar componentes em runtime?  (Read 4674 times)

meulinux

  • Guest
Como criar, mover e redimencionar componentes em runtime?
« on: January 26, 2012, 06:49:24 pm »
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

  • Hero Member
  • *****
  • Posts: 2301
Re: Como criar, mover e redimencionar componentes em runtime?
« Reply #1 on: January 26, 2012, 08:06:29 pm »

//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!
Lamw: Lazarus Android Module Wizard
https://github.com/jmpessoa/lazandroidmodulewizard

 

TinyPortal © 2005-2018