Bom, respondendo EFETIVAMENTE a pergunta do colega, que é como fazer
que não abra duas vezes a mesma janela MDI, podes fazer a seguinte
rotina, que caso já exista vai trazer ela pro tamanho normal e para a
frente:
var
i:integer;
cria:boolean;
begin
cria:=true;
for i:=0 to MdiChildCount-1 do if
MDIChildren[i].name='frm_config' then cria:=false;
if cria then
begin
frm_config:=tfrm_config.Create(Self);
frm_config.Show;
end else begin
frm_config.Bringtofront;
frm_config.Windowstate:=wsNormal;
end;
end;
Depois podes transformar isto em um função, por exemplo, para evitar
duplicação de código.
Espero ter ajudado.
On Mon, 27 Dec 2004 09:19:16 -0200, Marcelo Almeida
<[EMAIL PROTECTED]> wrote:
>
> Marcos Jordao wrote:
>
> >e no OnClose:
> >
> >Form1 := nil;
> >
> >Assim funciona bem e o nil libera o Form da memória.
> >
> >
>
> Delphi não é java, colocar nil na váriavel que identifica a instancia
> não libera memoria nenhuma.
> O correto para liberar a memoria é colocar "action := cafree" mesmo.
>
> --
> Marcelo Almeida
>
>
> --
> <<<<< 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
>
>
>
>
>
--
Daniel Pohren
Naphta Informática
--
<<<<< 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
