Junior Maia

Olá pessoal, fazendo uma pesquiza descobri que para eu acessar uma classe atraves de uma string eu tenho que ter essa classe previamente cadastrada. Eu trabalho com formulario padrão, dessa forma: TForm_Padrao_Cadastro = class(TForm) e todos os formularios de cadastro se derivam dela, da seguinte forma: TCadastro_Pessoas = class (TForm_Padrao_Cadastro) TCadastro_Fornecedores = class (TForm_Padrao_Cadastro) .... e a assim por diante. Dessa forma para eu registar as classes eu tenho que fazer o seguinte: Para eu registar a classe TCadastro_Pessoas eu tenho que fazer o seguinte, na unit UCadastro_Pessoas antes do "end." eu coloco o seguinte codigo: initialization RegisterClass(TFCadastro_Pessoas); finalization UnRegisterClass(TFCadastro_Pessoas); Para eu registar a classe TCadastro_Fornecedores eu tenho que fazer o seguinte, na unit UCadastro_Fornecedores antes do "end." eu coloco o seguinte codigo: initialization RegisterClass(TFCadastro_Fornecedores); finalization UnRegisterClass(TFCadastro_Fornecedores); A pergunta e a seguinte: Teria como eu fazer esse registro na classe mae(TForm_Padrao_Cadastro), Tipo assim: initialization RegisterClass(Screen.ActiveForm.ClassType); finalization UnRegisterClass(Screen.ActiveForm.ClassType); preciso fazer algo toda vez q eu crie um form derivado da classe mae (TForm_Padrao_Cadastro) eu não precise escrever o codigo para registar a classe. Obrigado.

Olá pessoal, estou com um problema, em uma das minhas aplicacoes estou usando formulario padrão (crio um formulario Form_Padrao_Cadastro = Class(TForm) e varios forms descendentes desse form FCad_Pessoas = Class(TForm_Padrao_Cadastro)), alem de outros formulario de cadastro. Ate ai tudo bem, funciona normalmente, o problema e que pra cada formulario de cadastro eu tenho um formulario de consulta, por exemplo _Pessoas e padrão, FCad_Pessoas e cadastro, FCons_Pessoas e consulta. Dessa forma eu poderia criar um codigo generico pra chamada do formulario, tipo assim: No evento onshow do form de cadastro eu colocaria o seguinte codigo: onshow do form de cadastro begin nome_form_cadastro:=(sender as tform).name; // aki eu tenho o nome do form de cadastro em uma string nome_form_consulta:='FCons'+copy(nome_form_cadastro,5,length(nome_form_cadastro));// aki eu tenho o nome do form de consulta em uma string formulario:=(sender as TForm); // aki eu tenho o form de cadastro em uma variavel do tipo :TForm; formulario_consulta:=TForm(FindGlobalComponent(nome_form_consulta)); // aki eu tenho o form de consulta em uma variavel do tipo :TForm; end; onclick do botao consultar do form de cadastro begin formulario_consulta:=TFormClass(formulario_consulta.ClassType).Create(self); end; a ideia seria isso, mas da access violation, eu ate entendo que de access violation, pois ta tentando acessar uma propriedade de um formulario q ainda não foi criado na memoria, mas então como eu vou criar o formulario de maneira generica?, sem acessar a classe do formulario, mas referenciando sua classe? Aguardo resposta, obrigado.

Bom dia pessoal, vou expor o meu problema, preciso de ajuda. Sou programador em uma empresa em Passos-MG, essa empresa tem uma filial em São Paulo, e eu tenho um grande fluxo de informações no servidor. Preciso que minhas informacoes sejam centralizadas, dai pensei em configurar um mysql com acesso remoto, mas o problema e que a conexao vai ficar lenta, e devido ao grande numero de operacoes no servidor isso pode inviabilizar o processo. Dai então cheguei a conclusão que se eu montar um servidor aqui em Passos e outro em São Paulo e desenvolver uma ferramenta pra fazer a troca de informação entre os servidores seria a melhor opção. Dai fiquei na duvida, se já não existe uma ferramenta que faca essa sincronização de forma automatica, tipo de 2 em 2 minutos os servidores se sincronizam. Se alguém puder me ajudar eu agradeco. Obrigado.