Problema com showmodal

Question

Ultimamente meus sistemas est�o com um problema que n�o consigo entender: De vez em quando as telas abertas com SHOWMODAL n�o funcionam, isto �, ficam atr�s da tela que a chamou.
Saindo do programa e voltando o problema some.
Algu�m pode me explicar este pepino?
Pode ser o Windows XP?

Massuda · Answer

N�o � um problema do Windows, mas sim um problema relacionado ao modo como a VCL implementa os objetos TApplication e TForm.

Para ajudar a minimizar isso, inclua isto no seu form modal...

type
  TSeuFormModal = class(TForm)
    ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    ...
  end;

...

procedure TSeuFormModal.CreateParams(var Params: TCreateParams);
begin
  inherited;

  if Assigned(Owner) and (Owner is TWincontrol) then
    Params.WndParent := TWinControl(Owner).handle
  else if Assigned(Screen.Activeform) then
    Params.WndParent := Screen.Activeform.Handle;
end;

Crpavao · Answer

Obrigado Massuda. Vou testar e retorno aqui o resultado...

Crpavao · Answer

Qdo uso MessageDgl tamb�m ocorre este problema. Teria alguma solu��o para este caso?Substitui todos eles por um form criado por mim, mas gostaria de saber se tem solu��o.Grato....

Massuda · Answer

Troque seus MessageDlg e ShowMessage por MessageBox da unit Windows.

Note que o primeiro parametro do MessageBox � o handle de uma janela, sempre informe o handle da janela ativa do seu programa (algo do tipo SeuForm.Handle) ou informe Screen.ActiveForm.Handle.

Crpavao · Answer

Obrigado Massuda, vou testar em momento oportuno e te retorno..Mais uma vez, obrigado pela for�a....

Martins · Answer

[quote:d9d0e2dc68=�Pav�o�]Obrigado Massuda, vou testar em momento oportuno e te retorno..
Mais uma vez, obrigado pela for�a.[/quote:d9d0e2dc68]

Algo mais ou menos assim.

  MessageBox(Form2.Handle, pchar(�Testando..�), pchar(�Informa��o�), mb_ok);

Boa sorte e bons c�digos.

Fabio Ferreira · Answer

Massuda,Eu utilizo o application.messagebox(...) da unit forms que esta encapsulando a windows.messagebox. Tem alguma vantagem ou � melhor de uma forma ou de outra ?Fabio...

Massuda · Answer

[quote:3ec6e91675=�Fabio Ferreira�]Eu utilizo o application.messagebox(...)[/quote:3ec6e91675]Com rela��o ao problema que deu origem a este t�pico, TApplication.MessageBox tem o mesmo problema que MessageDlg ou ShowMessage.

Fabio Ferreira · Answer

Estou com um problema que resolvi quebrando o galho, que deve ter relacao com esse topico.

Apos o codigo abaixo a mensagem simplesmente nao aparece :

Frmtroca:= TFrmtroca.create( nil );
result:= Frmtroca.showmodal = mrok;
Frmtroca.release;

retorno:= windows.messagebox( screen.activeform.handle, pchar( mensagem )....;

Neste caso a mensagem nao � apresentada para o usuario, pulando o comando, retornando com 0 (zero);

O que estamos fazendo e testando o �retorno� e se for iqual a zero apresenta a mensagem novamente e a� sempre aparece.

Esse problema somente acontece apos a chamada de um form, como no exemplo acima.

O messagebox foi testado tanto com a Windows. quanto com o Application.

Aonde esta o erro desse caso ?

Fabio

F�rum Problema com showmodal #348608