Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

wilsoncrescencio

Há uma maneira de abrir um form a partir de uma edit?

Recommended Posts

D2006 + Access + ADOConnection

 

Geralmente eu uso a seguinte maneira para abrir um form

 

beginif (DM1.USUARIOS.Locate('USUARIO',edUsuario.Text,[])) and  (DM1.USUARIOS.FieldByname('SENHA').asstring = edSenha.Text)   AND  (EDDepartamento.Text = 'COORDENAÇÃO')  then  begin  USUARIOS.Hide;// ESCONDE O FORM Acesso  COORDENA:= TCOORDENA.Create(self);  COORDENA.ShowModal;  COORDENA.Free;

Haveria uma maneira de abrir o Form substituindo o Coordena digitado pelo conteúdo da EDDepartamento?

Compartilhar este post


Link para o post
Compartilhar em outros sites

C Entendi direito sua duvida, axo q isto resolve:

var  Classe: TFormClass;begin  Classe:= TFormClass(FindClass('TForm3'));  with Classe.Create(Application) do  begin	Show;  end;end;
No final da unit, antes do end.

Initialization  RegisterClass(TForm3);
É a unica forma q eu conheço, + naum sei se seria uma boa ideia usar isto, visto q terá q registrar todas as possiveis classes .... Talvez fosse mais interessante, você criar um metodo q receba um TFormClass como parametro ...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.