Teria como concentrar esse codigo assim

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

Estou indo dormir agora vou vefica a noite valeu wesley

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


Att,

Wesley Y

 

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 ?

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

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  

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

att,

Wesley Y