ShowModal, Detecção de Formulários Abertos por

Delphi

01/02/2008

Boa tarde/noite, senhores(as).

É possível identificar que um formulário foi aberto com ShowModal?

Certamente pode-se testar se a propriedade ModalResult de determinado botão é diferente de mrNone; mas isto não garante que o form foi aberto com ShowModal. Há alguma propriedade do form ou recurso do windows que retorne essa informação?

Grato pela atenção.

Henrique


José Cordeiro

José Cordeiro

Curtidas 0

Respostas

Dor_poa

Dor_poa

01/02/2008

vc pode percorrer todos os Objetos abertos e se ele for um Form dar um NIL
Exemplo:


for i := 0 to Application.ComponentCount-1 do
Begin
If (Application.Components[i] is TFORM) then
(Application.Components[i] As TFORM).close;
End;


GOSTEI 0
POSTAR