Fechar Modal

[Paulo Nobre]

Vi em um tópico postado neste forum a rotina abaixo:

Uses Unit2;

procedure TForm1.FormShow(Sender: TObject);

begin

with TForm2.Create(Application) do

begin

try

ShowModal;

finally;

free;

end;

end;

end;

Testei e funciona, porém em um detalhe ela não funcionou:

Coloquei no evento onclose de um botão

form2.close e não aconteceu nada.

Porque isso ocorre(ou melhor nada ocorre)

Ele só fecha pelo "X" da parte superior direita.

Isso é uma característica do modal??

[Jhonas]

procedure TForm1.FormShow(Sender: TObject);
begin
   with TForm2.Create(Application) do   /// Criar o Form2
   begin
     try
        ShowModal;  /// Mostrar o Form2
      finally;
        free;
      end;
   end;
end;

Como voce quer fecha-lo se o comando é para mostra-lo

abraço

[Paulo Nobre]

Depois que ele aparece tenho um botão nele para executar uma tarefa e depois que a tarefa é executada

gostaria de fechá-lo para que o principal pudesse aparecer(o modal não é o principal ele está ali aparecendo apenas porque no oncreat do principal o registro é verificado e caso algo não esteja lá ele chamará o modal ao invés do principal). Sendo assim gostaria de ter um botão nele para ao clicar(ao invés de clicar no X-lá funciona) pudesse fechar

o modal e aparecer o principal. Faço assim pois se não fosse modal o principal seria carregado a aí o programa daria prosseguimento e no ,eu caso não iria interessar)

[Jhonas]

basta colocar o comando Close no botão.

abraço