Fórum Problemas com MDI #364204
23/09/2008
0
Ola pessoal, sempre tive uma duvida em usar
formulario MDI.
Seguinte.
Montei uma tela de cadastro de clientes como MDISchild, até ai
sem problemas
mas como faria, se vou entrar numa tela onde o sistema
pergunta qual o cliente que vou utilizar, dai se ele não sabe
abriria uma tela onde aparece todos os cliente, e caso
não tenho o que ele quer, teria um botão como NOVO CLIENTE
e após clicar nesse botão, abriria aquele tela de cadastro de cliente
Qual seria a rotina correta pra fazer isso? Já tentei
de varias maneiras, mas ou o Form do Cadastro do Cliente
abre junto com a principal, etc, etc
grato
Claudio
formulario MDI.
Seguinte.
Montei uma tela de cadastro de clientes como MDISchild, até ai
sem problemas
mas como faria, se vou entrar numa tela onde o sistema
pergunta qual o cliente que vou utilizar, dai se ele não sabe
abriria uma tela onde aparece todos os cliente, e caso
não tenho o que ele quer, teria um botão como NOVO CLIENTE
e após clicar nesse botão, abriria aquele tela de cadastro de cliente
Qual seria a rotina correta pra fazer isso? Já tentei
de varias maneiras, mas ou o Form do Cadastro do Cliente
abre junto com a principal, etc, etc
grato
Claudio
Claudiocjr
Curtir tópico
+ 0
Responder
Posts
23/09/2008
Edsant
Para o form do cadastro não abrir junto com o form principal vc tem que ir em Menu/Project/Option : Mover o form do Cadastro que está em: auto-Create Form para Available Forms:
para chamar o form MDI :
procedure TmenuPrin.Autores1Click(Sender: TObject);
begin
if (FAutores = Nil) then
Application.CreateForm(TFAutores,FAutores);
FAutores.Show;
end;
depois no form: Evento onClose;
procedure TfAutores.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := CaFree;
Release;
FAutores := Nil;
end;
espero ter ajudado:
para chamar o form MDI :
procedure TmenuPrin.Autores1Click(Sender: TObject);
begin
if (FAutores = Nil) then
Application.CreateForm(TFAutores,FAutores);
FAutores.Show;
end;
depois no form: Evento onClose;
procedure TfAutores.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := CaFree;
Release;
FAutores := Nil;
end;
espero ter ajudado:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)