Fechar form em Modal no onShow? Tem como?

Question

Ola pessoalEstou com um problema, preciso fechar um form em Modal no seu pr�prio onShow. Sei que se eu colocar Close no onShow de um form em Show, isso da certo, ao abrir o form, ele se fecha automati...

Felipeucc · Answer

Amigo, acho que seria interessante voc� reavaliar seu c�digo, para ver a real necessidade do que voc� est� solicitando. Pois a principio, n�o faz nenhum sentido voc� abrir um form para j� fech�-lo ! Seria mais f�cil n�o abr�-lo !

Seu_madruga · Answer

Concordo, mas a unica forma de fazer uma checagem X no meu form � durante o Show, no onCreate ou antes dele n�o tenho as informa��es necess�rias que s�o herdadas. Por isso que precisa ser no OnShow.

Junior Miranda · Answer

Bom dia!O que exatamente faz este formul�rio ???[]�s...

Seu_madruga · Answer

Antes de criar o Form, eu verifico se ele tem acesso, se tiver crio e abro ele, mas agora tenho outra verifica��o se o form � especial e se o usu�rio tb�m � especial. Na fun��o de verificar acesso n�o verifico se ele � especial, somente tenho acesso depois do form estar aberto. Tem como resolver isso, se eu modificar a fun��o de verificar acesso mas n�o sei se vale a pena, pois terei q modificar muita coisa no sistema. � por isso que estou tentando imterromper o ShowModal depois que ele � executado.

Rodc · Answer

[code:1:b958b32358]PostMessage(this.Handle, WM_CLOSE, 0, 0);[/code:1:b958b32358]...

Junior Miranda · Answer

Ol�.Esta sem d�vida n�o � a forma mais correta da coisa ser feita. Mas tenta isto:  PostMessage(Self.Handle, WM_CLOSE, 0, 0);...

Rodc · Answer

[quote:0d417085aa=�rodc�][code:1:0d417085aa]PostMessage(this.Handle, WM_CLOSE, 0, 0);[/code:1:0d417085aa][/quote:0d417085aa]Opa!! Foi mal... �this� � no C++, o correto � �Self� mesmo....

Onjahyr · Answer

N�o sei, n�o tenho certeza, mas acho que algumas coisas ainda ficam na mem�ria ao fechar esta janela deste jeito. N�o h� como implementar uma rotina que capture que o form est� fechando, e ent�o liberar a mem�ria da form com Release? :shock:

Ou, quem sabe, capturar o retorno (c�digo de erro) de [b:6d31f849b2]PostMessage[/b:6d31f849b2]

Onjahyr · Answer

[quote:6d31f849b2=�onjahyr�]N�o sei, n�o tenho certeza, mas acho que algumas coisas ainda ficam na mem�ria ao fechar esta janela deste jeito. N�o h� como implementar uma rotina que capture que o form est� fechando, e ent�o liberar a mem�ria da form com Release?  :shock:[/quote:6d31f849b2]Ou, quem sabe, capturar o retorno (c�digo de erro) de [b:6d31f849b2]PostMessage[/b:6d31f849b2]...

Micheus · Answer

[b:f39ab2b2bc]Seu_madruga[/b:f39ab2b2bc], experimente algo como criar uma function em seu form que fa�a a verifica��o da possibilidade de ele ser mostrado ou n�o. Se a function validar retorna True do contr�rio, false.
um ex.:

type
  TForm1 = class(TForm)
    ...
  public
    ... 
    function CanShowForm :boolean;
  end;
...

function TForm1.CanShowForm :boolean;
begin
  If <condi��es OK> then
    Result := True
  else
    Result := False;
end;

na hora do uso:

procedure TMainForm.MenuItem1Click(Sender :TObject);
begin
  Form1 := TForm1.Create(Self);
  try
    if Form1.CanShowForm then
      Form1.ShowModal;
  finally
    Form1.Free;
  end;
end;

voce poderia ainda, mostrar ou n�o o form l� mesmo na fun��o, principalmente ser vc precisar do retorno dele (valor de ModalResult). � quest�o de op��o.

Se a verifica��o s� pode ser feita com ele criado, acho que fica mais elegante deste modo.

Abra�os

Rodc · Answer

[quote:f8eb5f5308=�onjahyr�]N�o sei, n�o tenho certeza, mas acho que algumas coisas ainda ficam na mem�ria ao fechar esta janela deste jeito. N�o h� como implementar uma rotina que capture que o form est� fechando, e ent�o liberar a mem�ria da form com Release?  :shock:[/quote:f8eb5f5308]Considerando que ele est� usando ShowModal(), a mensagem WM_CLOSE avisa o form para ele fechar e quando o form processar a mensagem (ap�s a inicializa��o) ele ser� fechado e a fun��o que chamou o ShowModal se responsabiliza em destruir o formul�rio.Nota: Quando se clica no �X� do form, ele envia um WM_CLOSE para o fomul�rio....

Rangel Alves · Answer

Sei que a d�vida � antiga.. para para os as pessoas que estiverem pesquisando sobre isso vai a dica:

Form1 - Evento OnShow
--
Timer1.Enabled := true;
--

Coloque um Timer no Form com Interval de 100 (num da tempo nem piscar) e Enabled false;
No OnTimer
--
Timer1.Enabled := false;
Close;
--

Prontinho, simples e f�cil como o Delphi deve ser!

F�rum Fechar form em Modal no onShow? Tem como? #352582