Form mdi x form Normal

Question

Pessoal, preciso saber como fa�o por exemplo para fazer o seguinte:Imagine que estou num campo dbedit do tipo codigoPaciente,atrav�s de um atalho eu chame um form de pesquisa (mdi),s� que quero que os...

J�der Medeiros · Answer

Por que voc� n�o quer usar o ShowModal?...

Marcosrocha · Answer

Janelas sem Modal dificultam muito o controle sobre outras telas... caso realmente seja necess�rio a dispensa do m�todo. Mas pelo que eu entendi voc� s� quer deixar o usu�rio fechar a pesquisa se ele selecionar um Registro, � isso? :?

Aschaves · Answer

Deixa eu ver se entendi, voc� est� em um form qualquer, dispara um form de pesquisa e n�o quer que o usu�rio saia do form de pesquisa sem passar por determinada condi��o?

Fazendo como se o form pesquisa fosse showmodal, n�o pode sair enquanto n�o clicar no OK?, testa o codigo abaixo, que simula um showmodal.

1� - Ao criar o form seta uma variavel logica para false (FORMCREAT)
2� - Ao fechar o form testa se a variavel � true (FORMCLOSEQUERY)
3� - Ao sair do form sem fechar, testa se a variavel � true (FORMDEACTIVATE)

var
  FormPesq: TFormPesq;
  Podefechar :boolean;

implementation

{$R *.dfm}

procedure TFormPesq.FormCreate(Sender: TObject);
begin
  PodeFechar := False; // define a variavel 

  // seu codigo em diante 
  .
  .
  .

end;


// Aqui voce define em um button ou outro evento qualquer a condi��o verdadeira para fechar
procedure TFormPesq.Button1Click(Sender: TObject);
begin
   PodeFechar := True;  // 

  // seu codigo em diante 
  .
  .
  .

end;



procedure TFormPesq.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  formPesq.Close := caFree;
end;

// Se tentar fechar o form 
procedure TFormPesq.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := True;

  if not podefechar then
    CanClose := False;

end;


// se tentar ir para outro form j� aberto
procedure TFormPesq.FormDeactivate(Sender: TObject);
begin
 if not PodeFechar then
  begin
    (sender as Tform).SetFocus;
    (sender as Tform).BringToFront

  end;
end;


end.

F�rum Form mdi x form Normal #344688