form como vari�vel?

Question

Possuo uma unit que dependendo do form que a chapa executa uma rotina que mexe com componentes deste form. Os componentes s�o de mesmo nome em todos os forms e para eu n�o ficar repetindo a mesma roti...

Nildo · Answer

Voc� cria uma var�vel do tipo TForm e atribue ela quando for chamar a fun��o. Ou mesmo passa seu formul�rio atual como par�metro para as fun��es necess�rias.

Depois voc� vai ter que usar o FindComponent para alterar as propriedades dos componentes.

procedure AlteraLabelX( form: TFOrm );
begin
   TLabel(form.FindComponent( �label1� )).Caption := �Caption alterado�;
end;

E quando for chamar, de qualquer formul�rio voc� chama assim:

   AlteraLabelX( Self );

Esse SELF indica o formul�rio atual.

Bortol · Answer

ainda uma pergunta... como fa�o para capturar o form e us�-lo como vari�veltentei pesquisar no forum e n�o encontrei nada........

R�mulo Barros · Answer

Se a chapa for um TButton ent�o:TButton(Sender).Owner.Componente.Evento;Se a chapa for um SpeedButton ent�o:TSpeedButton(Sender).Owner.Componente.Evento;.....  :roll:...

Nildo · Answer

Mas o Form j� � uma vari�vel.Ele � uma vari�vel do tipo TSeuFormul�rio que descende de TForm.Nesse TSeuFormulario, alem de todas as outras variaveis e objetos do TForm ainda inclue todos os componentes que voc� colocou nele e mais variaveis....

F�rum form como vari�vel? #243280