Form mdi

Question

ol� amigos, gostaria de saber qual os cuidados que devo tomar com as aplica��es mdi e quais as vantagens que tenho. Poderia colocar os pros e os contras e quem puder tb me explicar como funciona uma aplica��o mdi tb agradeceria.

Eniorm · Answer

vejo como principal vantagem o uso de MDI o fato de ser poss�vel abrir v�rias janelas ao mesmo tempo, principalmente se por exemplo o usu�rio estiver num cadastro e precisar com urg�ncia consultar dados num outro form do programa... ou ele abandona o cadastro ou conclui para depois fazer a consulta.

no MDI isso n�o acontece! basta abrir o form, consultar o que precisa, e depois retornar ao cadastro.

cuidados que deve ter � no que diz respeito as transa��es, se vai ou n�o ser poss�vel abrir o mesmo form mais de uma vez etc.

outro problema que eu enfrentei foi que, muitas vezes em forms de consulta, o registro buscado ficava armazenado numa vari�vel, depois ao retornar ao form anterior eu usava o valor armazenado nessa vari�vel para buscar dados e exibir no form.... e isso geramente era feito depois do ShowModal;

com ShowModal, a execu��o para e fica aguardando o Close do form aberto em quest�o, j� com o Show n�o

ex:

...
Form2.ShowModal; // *
Edit1.Text := Form2.qryPesquisa.FieldByName(�codigo�).AsString;
Edit1.OnExit(Self);
...

* neste caso, a execu��o s� continua depois do ShowModal quando ocorrer o Close no Form2

...
Form2.Show; // **
Edit1.Text := Form2.qryPesquisa.FieldByName(�codigo�).AsString;
Edit1.OnExit(Self);
...

** neste caso, ap�s o show, as duas linhas seguintes seriam executadas na sequ�ncia... o que � desagrad�vel uma vez que eu posso n�o ter conclu�do a pesquisa ainda.

Brunodsr · Answer

Para resolver o problema da linha de comando ser executada em seguida, da pra fazer uma gambiarra interessante. Vc fica mandando o form processar mensagens exustivamente at� que ele se esvaia. Tipo assim:

//Procedure que vai dar efeito modal ao form MDI
procedure f_ShowModal(hChildHandle: THandle);
begin
  while IsWindow(hChildHandle) do
  begin
    sleep(1);
    Application.ProcessMessages;
  end;
end;

//Chamando
var
  hnd:THandle;
  frm: TFrTeste;
begin
  frm := TFrTeste.Create(self);
  hnd := frm.handle);
  f_ShowModal(hnd);
  showmessage(�teste�); //so sera executado quando o form for fechado.
end;

Espero ter ajudado

Pestana_ · Answer

[quote:df9d721289=�Enio Marconcini�]outro problema que eu enfrentei foi que, muitas vezes em forms de consulta, o registro buscado ficava armazenado numa vari�vel, depois ao retornar ao form anterior eu usava o valor armazenado nessa vari�vel para buscar dados e exibir no form.... e isso geramente era feito depois do ShowModal;

com ShowModal, a execu��o para e fica aguardando o Close do form aberto em quest�o, j� com o Show n�o

ex:

...
Form2.ShowModal; // *
Edit1.Text := Form2.qryPesquisa.FieldByName(�codigo�).AsString;
Edit1.OnExit(Self);
...

* neste caso, a execu��o s� continua depois do ShowModal quando ocorrer o Close no Form2

...
Form2.Show; // **
Edit1.Text := Form2.qryPesquisa.FieldByName(�codigo�).AsString;
Edit1.OnExit(Self);
...

** neste caso, ap�s o show, as duas linhas seguintes seriam executadas na sequ�ncia... o que � desagrad�vel uma vez que eu posso n�o ter conclu�do a pesquisa ainda.[/quote:df9d721289]

neste caso voc� teria que devolver o valor desta variavel que foi produzida no form de consulta atravez de rotinas!

formPesq.Show;

no evento OnClick do bot�o de pesquisar por exemplo, chame a rotina do form que o chamou.

procedure TformPesq.botaoPesqClick(sender : TObject);
begin
  form1.rotina(edit2.Text);
end;

form1 que chamou o form de pesquisa.
function Tform1.rotina(valor string);
begin
   edit1.text := valor;
end;

+/- assim.

Acho que a maior vantagem � isso que o [b:df9d721289]Enio[/b:df9d721289] disse!

vejo como principal vantagem o uso de MDI o fato de ser poss�vel abrir v�rias janelas ao mesmo tempo, principalmente se por exemplo o usu�rio estiver num cadastro e precisar com urg�ncia consultar dados num outro form do programa

flw.