FindComponent

Para facilitar o desenvolvimento de scripts que necessitam capturar informações ou manipular componentes em diferentes telas foi disponibilizado o método FindComponent.

 Instruções

Crie ou altere um script já existente:

1. Utilize os atalhos ctrl+shift+F12 para obter o nome da tela e ctrl+shift+F9 para obter o nome do componente que se deseja manipular;

2. Utilize o método FindComponent :

   var Tela : TComponent; Comp : TComponent; edt : TVsNum; begin // primeiro localize a tela Tela := FindComponent('FFormPadraoSAFRAS', nil); if Assigned(Tela) then // confirme que a tela foi encontrada begin // utilize novamente o método FindComponent, passando a tela // como segundo argumento Comp := FindComponent('EB_RENDIDEAL', Tela); if Assigned(Comp) then begin edt := Comp; // utilize o cast para poder acessar as propriedades do componente edt.Value := 10; end; end; end;