Formularz jest ukryty za innymi formularzami, gdy program ShowModal jest nazywany

Question

Moja aplikacja oparta jest na formularzach modalnych. Główna forma otwiera jedną formę z ShowModal, ta forma otwiera kolejną z ShowModal, więc mamy ułożone formularze modalne. Czasami pojawia się problem polegający na tym, że kiedy wywołujemy ShowModal w nowej formie, ukrywa się on za wcześniejszymi formularzami, zamiast pokazywać na wierzchu. Po naciśnięciu klawisza alt + formularz wraca na górę, ale nie jest to dobre rozwiązanie. Czy spotkałeś się z tym problemem i jak sobie z tym poradziłeś?

EDIT:

używam Delphi 7.

Answer 1

Nie wspominając która wersja Delphi ...

Nowsze wersje Delphi zostały dodane dwa nowe właściwości TCustomForm: PopupMode i PopupParent. Ustawienie PopupParent okna dialogowego modalnego na formularz, który tworzy to okno dialogowe, zapewnia, że ​​formularz podrzędny pozostaje na jego rodzica. Zwykle rozwiązuje problem, który opisujesz.

Myślę, że ta para właściwości została dodana w Delphi 2006, ale mogło to być 2005. Są zdecydowanie w Delphi 2007 i wyżej.

EDYCJA: Po zobaczeniu, że używasz Delphi 7, jedyną sugestią jaką mam, jest to, że w kodzie, który wyświetla twoją formę modalną, wyłącza się tworzenie formularza i ponownie włącza po powrocie. To powinno uniemożliwić utworzenie okna wprowadzania danych, co może pomóc w utrzymaniu porządku Z.

Coś takiego może działać (niesprawdzone, a ja już nie używam D7):

procedure TForm1.ShowForm2; 
begin 
    Self.Enabled := False; 
    try 
    with TForm2.Create(nil) do 
    begin 
     try 
     if ShowModal = mrOk then 
      // Returned OK. Do something; 
     finally 
     Free; 
     end; 
    end; 
    finally 
    Self.Enabled := True; 
    end; 
end; 

Jeśli Form2 tworzy okno modalne (jak już wspomniano), po prostu powtórzyć proces - wyłączyć Form2 , utwórz Form3 i pokaż go modalnie, a następnie ponownie włącz Form2 po jego powrocie. Upewnij się, że użyłeś try..finally, tak jak to pokazałem, więc jeśli coś pójdzie nie tak w formie modalnej, formularz tworzenia jest zawsze ponownie włączony.

Answer 2

I odkryli, że za pomocą "Zawsze na wierzchu" flagę na więcej niż jednej postaci powoduje problemy z zamówieniem Z. Możesz również znaleźć potrzebę funkcji BringWindowToTop.

Po uruchomieniu okna komunikatu przy użyciu wbudowanego interfejsu WinAPI (MessageBox), stwierdziłem, że podanie uchwytu okna wywoływania jest konieczne, aby upewnić się, że monit jest cały czas wyświetlany na górze.

Answer 3

Z tego link wynika, że ​​problem dotyczy "okna Ghosting", które zostało wprowadzone w 2000/XP. Możesz wyłączyć funkcję maskowania, wywołując następujący kod podczas uruchamiania.

procedure DisableProcessWindowsGhosting; 
var 
    DisableProcessWindowsGhostingProc: procedure; 
begin 
    DisableProcessWindowsGhostingProc := GetProcAddress(
    GetModuleHandle('user32.dll'), 
    'DisableProcessWindowsGhosting'); 
    if Assigned(DisableProcessWindowsGhostingProc) then 
    DisableProcessWindowsGhostingProc; 
end; 

Jedyny problem, że widzę to, że będzie to powodować problemy z funkcją, która umożliwia użytkownikowi na minimize, move, or close the main window of an application that is not responding. Ale w ten sposób nie musisz pokrywać każdego połączenia kodem Self.Enabled := False.

Answer 4

Przepraszamy za dodanie oddzielnej odpowiedzi, ale zrobiłem trochę więcej badań, a niektóre z nich wskazują, że moja poprzednia odpowiedź (DisableProcessWindowsGhosting) nie pomaga. Ponieważ nie zawsze mogę odtworzyć ten problem, nie mogę powiedzieć na pewno.

Znalazłem rozwiązanie, które wydaje się odpowiednie. Odwołuję się do kodu w Delphi 2007 dla metody CreateParams i pasuje całkiem blisko (bez całego kodu obsługującego PopupMode).

Utworzono jednostkę, poniżej której znajdują się podklasy TForm.

unit uModalForms; 

interface 

uses Forms, Controls, Windows; 
type 
    TModalForm = class(TForm) 
    protected 
    procedure CreateParams(var params: TCreateParams); override; 
    end; 

implementation 

procedure TModalForm.CreateParams(var params: TCreateParams); 
begin 
    inherited; 

    params.WndParent := Screen.ActiveForm.Handle; 

    if (params.WndParent <> 0) and (IsIconic(params.WndParent) 
    or not IsWindowVisible(params.WndParent) 
    or not IsWindowEnabled(params.WndParent)) then 
    params.WndParent := 0; 

    if params.WndParent = 0 then 
    params.WndParent := Application.Handle; 
end; 

Co zrobić, wtedy jest to urządzenie się z jednostki formularz, a następnie zmienić klasę postaci (w pliku kodu .pas) z class(TForm) do class(TModalForm)

To działa dla mnie, wydaje się być blisko rozwiązania CodeGear.

Answer 5

Wystarczy ustawić właściwość formularza Visible, że chcesz otworzyć modalnego, aby False. Następnie możesz go otworzyć przy pomocy .ShowModal(); i to zadziała.

Answer 6

spróbować go OnShowForm: