Delphi dicas

Código para não abrir o form duas vezes

{basta você declarar no evento OnClose da janela filha o código - action := Cafree - e o código - Form_Usuario := nil - ai na janela mãe entre com esse código no botão que irá chamar a forma:}



procedure TFrmPrin.Cadastrar1Click(Sender: TObject);

begin

        if (Form_Usuario = nil) then

        begin

                Form_Usuario := TForm_Usuario.Create(Self);

                Form_Usuario.Show;

        end

        else

        begin

                Form_Usuario.WindowState := WsNormal;

                Form_Usuario.BringToFront;

                Form_Usuario.Focused;

        end;

end;

por : Leonardo Rodrigo Rocha