Criar componente(TPanel) Via c�digo

Question

Ol� Pessoal!Estou criando um sistema e esbarrei em um problema.Bom, parte das funcionalidades do sistema � respons�vel pelocadastramento de �quarto�, o problema � que e a cada registro novo que for ad...

Vmlima · Answer

Caro colega, utilize este exemplo de bot�es criados dinamicamente para um sistema de mesas de restaurante para fazer o seu com panels...

procedure TForm1.Button1Click(Sender: TObject);
var b:tbutton;
begin
   for contador:=1 to 10 do begin
      b:=Tbutton.create(self);
      b.visible:=false;
      b.parent:=self;
      b.left:=10;
      b.top:=Contador*30;
      b.Caption:=IntToStr(contador);
      b.name:=�Btn�+inttostr(contador);
      b.visible:=true;
   end;
end;

Espero ter ajudado, sen�o, email me e eu te ajudo, fazendo com panels mesmo...
att.

Fabricio.ribeiro · Answer

Obrigado vmlima!Farei o devido teste!...

Fabricio.ribeiro · Answer

Ol� novamente!Fiz o teste com c�digo acima e foi um sucesso,por�m surgiu outra d�vida como fa�o para criar eventos destes componentes que ser�o criados ap�s a exe��o da aplica��o?!...

Woinch · Answer

Basta voc� criar uma procedure com exatamente o mesmo cabe�alho do evento que voc� quer criar, por exemplo o OnExit:

procedure TForm1.ExecutaExit(Sender: TObject);
begin
  ShowMessage(�Executou Exit!�);
end;

E atribuir o evento como se fosse uma propriedade:

b.OnExit := ExecutaExit;

Espero ter ajudado...

Vmlima · Answer

Mais mastigado impossivel...[code:1:678a19232d]procedure TForm1.Button1Click(Sender: TObject);var b:tbutton;begin   for contador:=1 to 10 do begin      b:=Tbutton.create(self);      b.visible:=false;      b.parent:=self;      b.left:=10;      b.top:=Contador*30;      b.Caption:=IntToStr(contador);      b.name:=�Btn�+inttostr(contador);      b.visible:=true;      b.onclick:=clicou;   end;end;procedure TForm1.clicou(sender: TObject);begin   ShowMessage( (sender as TButton).Name );end;[/code:1:678a19232d]Tente a�, divirta-se...Att......

Fabricio.ribeiro · Answer

Muito Obrigado vmlima!Eu ja havia tentando criar os proceditmentos,por�m faltava atribui��o o evento ao qualo componente faz refer�ncia durante a sua cria��o.Obrigado!...

F�rum Criar componente(TPanel) Via c�digo #367737