Modo corretto per garantire che la forma principale sia ingrandita e completamente ridisegnata prima di mostrare un modulo modale sul carico dell'applicazione

Question

Qual è il modo consigliato per garantire che la mainform sia completamente ingrandita e tutti i controlli vengano ridisegnati prima di mostrare un modulo modale sul primo caricamento dell'applicazione?

Devo mostrare una finestra di dialogo modale all'avvio dell'applicazione (non una schermata di accesso) ma se imposto il modulo su wsMaximized mentre lo schermo ingrandisce, i controlli non hanno la possibilità di ridisegnare e si rimane con un brutto pasticcio .

mi mostrano lo schermo modale attualmente utilizzando il seguente:

procedure TForm1.FormActivate(Sender: TObject); 
var 
    frmOrderLookup:TfrmOrderLookup; 
begin 
    onactivate := nil; 
    frmOrderLookup:=TfrmOrderLookup.Create(nil); 
    try 
    frmOrderLookup.showmodal; 
    finally 
    frmOrderLookup.Free; 
    end; 
end; 

Answer 1

Cosa faccio di solito è inviare un messaggio personalizzato di nuovo al mio modulo. In questo modo non verrà elaborato fino a quando non saranno già gestiti altri messaggi per il modulo. Nel momento in cui questo messaggio viene elaborato, il tuo modulo dovrebbe aver già finito il ridisegno.

type 
    TMyForm = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    private 
    procedure HandleLookupMessage(var Message: TMessage); message WM_USER + 1; 
    end; 

procedure TMyForm.HandleLookupMessage(var Message: TMessage); 
var 
    frmOrderLookup: TfrmOrderLookup; 
begin 
    frmOrderLookup := TfrmOrderLookup.Create(Application); 
    try 
    frmOrderLookup.ShowModal; 
    finally 
    frmOrderLookup.Release; 
    end; 
end; 

procedure TMyForm.FormCreate(Sender: TObject); 
begin 
    // Maximise form here if needed 
    PostMessage(Handle, WM_USER + 1, 0, 0); 
end; 

Se siete preoccupati per il messaggio di ottenere alla vostra applicazione di nuovo in qualche modo, è sempre possibile aggiungere una variabile booleana privato per indicare che è stata gestita una volta.