On 9/27/07, Joao Morais <[EMAIL PROTECTED]> wrote: > O que você acha desta sintaxe? > > VMeuForm := TAlgumForm.Instancia; > > Se VMeuForm não for compatível com TAlgumForm você recebe um erro de > compilação. A implementação fica assim: > > constructor TFormAbstrato.Instancia; > begin > // procura form da classe ClassType em Screen.Forms; > // se existe > begin > inherited FreeInstance; > Self := // form existente; > end else > Self := inherited Create(AOwner); > end; > > -- > Joao Morais > Deixa eu ver se eu entendi. Eu deveria sobrescrever o Construtor do meu formulário base para procurar um Form da mesma classe? É isso? Ou eu teria que fazer isso em cada formulário? Valeu.
-- Leodinei Bielak http://leodinei.blogspot.com/ "In theory, there is no difference between theory and practice. In practice, however......"
