Elazar, Não resolve, pq o Form sempre está nil, mas na verdade não é nil ocorre q a chamada o outra coisa qq q desconheço não está certa.
No Proj. SDI isto nunca acontece pq sempre passo o form, portanto não deveria ser nil nunca. grato, claudemir --- Em delphi-br@yahoogrupos.com.br, "Elazar" <[EMAIL PROTECTED]> escreveu > procedure LimpaEdit(Form: TForm); > var > i : Integer; > begin > > if Form = nil then exit; > > for i := 0 to Form.ComponentCount - 1 do > begin > if Form.Components[i] is TCustomEdit then > (Form.Components[i] as TCustomEdit).Clear; > if Form.Components[i] is TStaticText then > (Form.Components[i] as TStaticText).Caption := ''; > if Form.Components[i] is TMemo then > (Form.Components[i] as TMemo).Clear; > end; > > > resolve? > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] > Em nome de klausbento > Enviada em: terça-feira, 11 de outubro de 2005 16:09 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Dificuldade em usar rotina generica do proj SDI no > MDI > > > Pessoal, > > Tenho 1 Sistema q roda numa boa em SDI. > > Tenho uma unit "uRotinasGen" (rotinas genericas), onde: > Limpo campos dos Forms, Travo Campo, escondo, enfim .... > passo o nome do form e mando brasa! > > Fiz uma mudança para MDI, mas não consigo executar estas rotinas > genéricas. > > Mensagem é: "Access Violation" > > Na passagem o Form fica certo, mas na unit o Form fica "nil" > > procedure TFrmPrinc.Rota1Click(Sender: TObject); > begin > Form2 := TForm2.Create(self); > end; > > procedure LimpaEdit(Form: TForm); > var > i : Integer; > begin > for i := 0 to Form.ComponentCount - 1 do > begin > if Form.Components[i] is TCustomEdit then > (Form.Components[i] as TCustomEdit).Clear; > if Form.Components[i] is TStaticText then > (Form.Components[i] as TStaticText).Caption := ''; > if Form.Components[i] is TMemo then > (Form.Components[i] as TMemo).Clear; > end; > > > Grato > Claudemir. > > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > Yahoo! Grupos, um serviço oferecido por: > > <http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gi f> > > > _____ > > Links do Yahoo! Grupos > > > * Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > > * Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > <mailto:[EMAIL PROTECTED] subject=Unsubscribe> > > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
