Evento OnShow (Cencelar aparecimento do form)

Question

Descobrir apenas no evento Onshow que nao posso mostrar o formulario o que fa�o para que ele n�o apareca?...

Tinorj · Accepted Answer

Para cancelar a exibi��o de um form[code:1:555a619a37]PostMessage(Form.Handle, WM_Close, 0, 0);[/code:1:555a619a37]Onde:[b:555a619a37]Form[/b:555a619a37] � o nome do seu formul�rio atual...

Gandalf.nho · Answer

Tente fechar o form nesse evento....

Rafs · Answer

Infelizmente n�o � poss�vel chamar o m�todo Close de dentro do evento OnShow, nem tamb�m chamar algum procedimento que feche o formul�rio.
Mas voc� poder�a colocar um Timer no formul�rio, coloque sua propriedade Interval para 1 e no evento OnTimer chame o m�todo Close.
Da� voc� verifica se o formul�rio deve ou n�o ser apresentado e seta a propriedade Enabled do Timer para True ou False, conforme a necessidade

Massuda · Answer

[quote:fef4a33bda=�Rafs�]Infelizmente n�o � poss�vel chamar o m�todo Close de dentro do evento OnShow, nem tamb�m chamar algum procedimento que feche o formul�rio.[...][/quote:fef4a33bda]Isso n�o est� correto... na verdade dentro do evento TForm.OnShow voc� n�o pode chamar TForm.Hide nem fazer TForm.Visible := False (d� runtime error... �Cannot change Visible in OnShow or OnHide�), mas voc� pode chamar TForm.Close....

Rafs · Answer

[quote:ddd4b21b44=�Massuda�][quote:ddd4b21b44=�Rafs�]Infelizmente n�o � poss�vel chamar o m�todo Close de dentro do evento OnShow, nem tamb�m chamar algum procedimento que feche o formul�rio.[...][/quote:ddd4b21b44]Isso n�o est� correto... na verdade dentro do evento TForm.OnShow voc� n�o pode chamar TForm.Hide nem fazer TForm.Visible := False (d� runtime error... �Cannot change Visible in OnShow or OnHide�), mas voc� pode chamar TForm.Close.[/quote:ddd4b21b44]Estranho.... Testei aqui, antes de postar, e no momento em que executava o m�todo Close me retornava o erro de que n�o � poss�vel chamar Hide ou mudar a propriedade Visible. Mas veja que eu chamei o m�todo Close.Vou fazer o teste novamente e volto a postar.......

Rafs · Answer

Refiz o teste aqui e o que acontece � que depende de como se chama o form (Show ou ShowModal).
Chamando-o com Show ocorre o erro descrito acima, mas se cham�-lo com ShowModal o erro n�o ocorre, mas tamb�m o comando Close n�o � executado.

Massuda · Answer

[quote:529be22614=�Rafs�][quote:529be22614=�Massuda�][quote:529be22614=�Rafs�]Infelizmente n�o � poss�vel chamar o m�todo Close de dentro do evento OnShow, nem tamb�m chamar algum procedimento que feche o formul�rio.[...][/quote:529be22614]Isso n�o est� correto... na verdade dentro do evento TForm.OnShow voc� n�o pode chamar TForm.Hide nem fazer TForm.Visible := False (d� runtime error... �Cannot change Visible in OnShow or OnHide�), mas voc� pode chamar TForm.Close.[/quote:529be22614]Estranho.... Testei aqui, antes de postar, e no momento em que executava o m�todo Close me retornava o erro de que n�o � poss�vel chamar Hide ou mudar a propriedade Visible. Mas veja que eu chamei o m�todo Close.[/quote:529be22614]Fiz alguns testes... na verdade, chamar TForm.Close dentro do evento TForm.OnShow d� problema [b:529be22614]a n�o ser que[/b:529be22614] voc� trate o evento TForm.OnClose e defina um valor para Action diferente de caHide (que � o default). Portanto, o c�digo...[code:1:529be22614]type  TForm1 = class(TForm)    procedure FormShow(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);    // ...  end;// ...procedure TForm1.FormShow(Sender: TObject);begin    Close;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin    Action := caFree;end;[/code:1:529be22614]...funciona sem problemas enquanto este c�digo...[code:1:529be22614]type  TForm1 = class(TForm)    procedure FormShow(Sender: TObject);    // ...  end;// ...proc...

Rafs · Answer

Mais um adicional ao conhecimento...  :D...

Tinorj · Answer

Que tal voc�s tentarem usar [b:00f78c7bf8]PostMessage(Form1.Handle, WM_Close, 0, 0);[/b:00f78c7bf8] no evento OnShow do Form1?...

Paulo_amorim · Answer

Ol�[quote:b7768d18d5=�tinorj�]Que tal voc�s tentarem usar [b:b7768d18d5]PostMessage(Form1.Handle, WM_Close, 0, 0);[/b:b7768d18d5] no evento OnShow do Form1?[/quote:b7768d18d5]Se essa fun��o funciona a contento ent�o o problema foi resolvido. A discuss�o foi em torno de ser ou n�o poss�vel fazer Close em um evento Form.OnShow, e n�o qual rotina � melhor.At�+...

Dopi · Answer

Pondo mais lenha no fogo  ;-)Eu tb tive alguns problemas usando o Close.... as vezes n�o fechava, ou dava erro...Estou usando:Application.Terminate...

F�rum Evento OnShow (Cencelar aparecimento do form) #262453