RES: RES: [delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI

Voce chama assim neh? LimpaEdit(Self); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de klausbento Enviada em: quarta-feira, 12 de outubro de 2005 14:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Dificuldade em usar rotina

Re: RES: [delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI

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

RES: [delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI

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).Capt