Teria como concentrar esse codigo assim

28/04/2009

Wesley Yamazack

Ol� Carlos,
Bom vamos l�.
Segue neste link, esta a solu��o do problema.
http://www.4shared.com/file/102204442/1bc09fd2/Chamado_UntServicos.html

Fiz o seguinte, criei uma unit, e uma class do tipo TForm, da mesma, cada procedure tem um Class na frente, para que voc� n�o tenha que criar a classe basta usar como no exemplo. NomedaClass.Procedure ( TServicos.EnterporTab(Self); )

Att,

Wesley Y

Responder

Gostei + 0

29/04/2009

Carlos Faria

Estou indo dormir agora vou vefica a noite valeu wesley

Responder

Gostei + 0

30/04/2009

Wesley Yamazack

Ol� Carlos,
Voc� consegui analisar o c�digo fonte que te mandei referente a este chamado ? Fico no aguardo para prosseguirmos.

Att,

Wesley Y

Responder

Gostei + 0

30/04/2009

Carlos Faria

Wesley y ,vb � bom nesse negocio amigo , resposta simples e objetiva era isso mesmo , so restou uma duvida antes de fechar o chamado como vc esta fazendo para chamar os metodos da unit de servi�o no frmcliente ?

Responder

Gostei + 0

01/05/2009

Wesley Yamazack

Ol� Carlos, primeiramente grato pelo elogio.
   Quanto a resposta para sua d�vida.

   Observe que na classe TServicos eu declarei um "Class" antes das procedures, isso indica que voc� nao precisa instanciar a classe para disparar ou executar uma function, ou procedure, usando simplesmente o nome da classe.Metodo;

   TServicos.EnterporTab(Self);

   Adicional :
      - Caso voc� queria criar uma outra function ou procedure, mas n�o queria fazer

Var
Servicos : TServicos

Begin

Servicos := TServicos.Create;
Servicos.NovaProcedure;
end;

Fa�a o seguinte

Na tua classe

    Type
      TServicos = class(TForm)
       class procedure EnterporTab(xForm : TForm);
       class procedure DOKeyPress(Sender: TObject; var Key: Char);
       class Procedure TeclaEsc(xForm : TForm);
       classe Procedure NovaProcedure;
     end;

        E para usar esta nova proceudure voce faz o seguinte:
        1 - Dar Uses na unit;
        2- TServicos.NovaProceure ou TOutraClass.OutraProcedure , Sendo assim voce nao precisa ficar crianda para poder usar a procedure.

Att,

Wesley Y

Responder

Gostei + 0

01/05/2009

Carlos Faria

Ola wesley , realmente muito bom o exemplo parabens cara , vou estudar melhor a estrutura desse codigo para aplica-lo em todo projeto ! Pode dar um ok nesse chamado ai que ta mais que solucionado! Como te disse foi bom o exemplo pois so resolver o problema nao adianta muito me deixa depente sempre da consultoria mais absolver o conhecimento � bem melhor vales abs

Responder

Gostei + 0

02/05/2009

Wesley Yamazack

Ol� Carlos,
Grato e estamos fechando o chamado. Sempre que precisar estaremos por aqui.

att,

Wesley Y

Responder

Gostei + 0

F�rum Teria como concentrar esse codigo assim #5097