Em alguns casos é necessário criarmos alguns componentes em tempo de execução nos nossos projetos, um exemplo prático disso aconteceu comigo recentemente, precisei criar um cadastro de candidatos, e gerar uma lista com as fotos dos candidatos e um botão votar na frente de cada um deles, sendo que quando o usuário clicava no botão referente a foto computava um voto para aquele candidato.
Para executar tal tarefa com o delphi é simples, segue um código e um projeto de exemplo para que vocês consigam ter uma ideia de como criar componentes em run-time no delphi.
procedure TForm1.Button1Click(Sender: TObject); var Edit : TEdit; begin i := i + 1; Edit := TEdit.Create( Self ); with Edit do begin Name := 'Edit'+ IntToStr(i); Left := 10; Top := 30 * i; Caption := 'Botão '+ IntToStr(i); Parent := form1; end; end; |
