Form1(main) non compare subito nella procedura TForm1.FormCreate

[petrusic]

Il progetto che sto riscrivendo in Lazarus si avvia con la Form1 (automatica).
Durante la procedura TForm1.FormCreate svolgo 2 operazioni dibase:

• salvataggio database SQLite3 su file di copia
• chiamata di Form5.ShowModal

Io vorrei che la Form1 si aprisse a video prima di qualsiasi altra finestra, come le ShowMessage e la stessa Form5, tutte chiamate durante l'esecuzione della TForm1.FormCreate.

Ieri ho cercato in tutti i modi una soluzione con le mie modeste conoscenze, ma non ho ricavato un bel niente.

Stamattina ho creato una Form6 con avvio automatico, successivamente alla Form1. Ho spostato le istruzioni dalla TForm1.FormCreate alla TForm6.FormCreate ottenendo quindi:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
begin
end;         

procedure TForm6.FormCreate(Sender: TObject);
var
  totRecQry: Integer;

  msgErro: String;

begin
  Form1.Top:= 0;
  Form1.Left:= 0;
  Form1.Width:= screen.width;
  Form1.Height:= screen.Height;
  Form1.Show;
     //  dbCorr:= dbOrig;
     dbCorr:= dbProve;     // Riga da attivare soltanto a fine prove
     if not FileExists(dbOrig) then    // l'ASSENZA del file ContabFamdb, potrebbe significare che il programma stia lavorando per la prima volta e bisogna dare vita al DB
     begin
      ShowMessage('DB ' + dbOrig + ' INESISTENTE - il Programma verra'' chiuso');
       Halt;   // Halt interrompe BRUTALMENTE l'esecuzione del programma e restituisce il controllo al chiamante
     end;                                                                                
...
    Application.CreateForm(TForm5, Form5);   // apre la Form5 - Verifica presenza Tabelle disordinate
     Form5.ShowModal;
     Form5.Free;
     Close;                                

In questo modo, all'avvio del progetto, si avviano nell'ordine:
Form1
Form6
Form5
Così riesco ad ottenere le sovrapposizioni di immagini come desideravo.
Allego le immagini in ordine di sequenza, per rendervi edotti concretamente sul mio pensiero.

La tecnica, come potette notare ha funzionato, ma non so se il mio modo di procedere, rientri nella corretta logica degli strumenti disponibili per Lazarus e Free Pascal.

[xinyiman]

L'ordine di avvio delle form lo trovi nel file .lpr oppure in "Opzioni del progetto" -> "Form"

[petrusic]

@ xinyiman

Grazie, ma forse non sono riuscito a farmi capire, perchè io non ho un problema da risolvere. Ho solo voluto indicare la soluzione trovata da me per ottenere la visualizzazione della Form1, in modo da aprire lo ShowMessage sulla Form1, già disegnata, poi, richiamando la Form5, di fare apparire quest'ultima, in sovrapposizione alla Form1.

Per completezza, ho anche allegato l'immagine della sola Form1, alla quale ritorna il Focus, dopo la close e della Form5 e, in successione, le close della Form5 e della Form6.

La mia pura perplessità è quella di non essere sicuro di avere svolto bene il compito che mi sono posto, oppure, se, avrei dovuto conoscere una soluzione più semplice, senza dovere ricorrere allo stratagemma di avviare la Form6 per fare apparire, sul monitor la Form1, prima ancora dello ShowMessage iniziale.

Spero di essermi espresso meglio.

[petrusic]

L'avvio automatico di una seconda Form dopo la Form1, soltanto allo scopo di fare di completare la procedura  TForm1.FormCreate e fare apparire subito dopo l'immagine di sfondo della Form1, mi è sempre sembrata una soluzione poco logica, anche se funzionante.
Ho perciò continuato a cercare una soluzione diversa ed oggi ho trovato e provato la seguente:

• Ho inserto nella Form1 il Panel1
• In Panel1, ho posto a 'TRUE' la prprietà TabStop
• "       "      ho attivato l'evento  'OnEnter'
• Ho portato fuori vista il Panel1 (Prop.Left = 7000)

Quale è stata la mia gioia, quando ho visto, all'avvio del programma, lo schermo subito riempito con l'immagine della Form1.