Delphi FindComponent
Caso esteja com problemas olhe esta dica rápida para funcionar corretamente o FindComponent.
Exemplo tirado do site da Embarcadero:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; const NamePrefix = 'MyEdit'; begin for i := 1 to 20 do begin TEdit.Create(Self).Name := NamePrefix + IntToStr(i); with TEdit(FindComponent(NamePrefix + IntToStr(i))) do begin Left := 10; Top := i * 20; Parent := self; end; end; end; |
Como no exemplo a cima TEdit.Create(Self) está sendo criado e passado como “pai” o próprio Form (Self).
Se passar no Create um TPanel ou outro componente como pai o FindComponent não irá localizar.
Fonte: https://docwiki.embarcadero.com/CodeExamples/Alexandria/en/FindComponent_(Delphi)