Formulários MDIChild

10/05/2008

0

Oi galera... bom dia,

vejamos se alguém pode me ajudar.

Estou desenvolvendo um sistema onde tenho um formulário Principal (Form_Principal) e a partir deles, entre muitos outros formulários, abro dois em especial (os que estão me dando problema): Form_Cad_Alunos e o Form_Turmas.

No form principal cloquei a propriedade FormStyle como fsMDIForm, o nos formulários Form_Cad_Alunos e Form_Turmas coloquei fsMDIChild.

No menu Project/Option do delphi, na opção Forms, deixo como autocreate somente o Form_Principal e meu datamodule.

para abrir os formulários Form_Cad_Alunos e form_Turmas faço assim:

Application.CreateForm(TForm_Cad_Alunos, Form_Cad_Alunos);
Form_Cad_Alunos.Show;



Application.CreateForm(TForm_Turmas, Form_Turmas);
Form_Turmas.Show;


Bom.... até aqui está funcionando beleza. Fiz assim depois de pesquisar em um tutorial de como trabalhar com Formulários MDI e MDIChild. Espero que esteja correto essa forma de trabalhar, mas se não tiver, por favor me avisem.. rs

O MEU PROBLEMA:
Quando estou com o formulário Form_Turmas (que é Child) aberto e a partir dele preciso abrir o formulário Form_Cad_Alunos (q tb é child), eu não consigo.
Usando este comando o sistema simplesmente trava, e só consigo sair dele finalizando pelo gerenciador de tarefas.

Application.CreateForm(TForm_Cad_Alunos, Form_Cad_Alunos);
Form_Cad_Alunos.Show;



Alguém sabe como eu faço para abrir um formulário fsMDIChild a partir de outro formulário fsMDIChild? [/code]


André Maretti

André Maretti

Responder

Posts

10/05/2008

Pestana_

André aparentemente não está errado, verifique no form filho se contem algum comando de código no envento Oncreate, OnShow ou OnActive, porque pode ser alguma coisa que esteja provocando o travamento.


flw.


Responder

16/05/2008

André Maretti

no on show eu tenho:
Flag_Edit := False;


e no onClose eu tenho:
DMDados.Query_Cad_Alunos.SQL.Clear;
DMDados.Query_Cad_Alunos.SQL.Add(´SELECT * FROM zeus_cad_alunos ORDER BY matricula´);
DMDados.Query_Cad_Alunos.Open;

Action := caFree;


Apenas isso...


Responder

16/05/2008

Pestana_

já aconteceu comigo o sistema travar porque eu estava utilizando o componente IBEvents no evento OnShow levou um tempo para descobrir isso!


mas o estranho é que você só tem esse código no evento e o código no seu poste acima não está errado!


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar