Ordine di esecuzione delle Form (risolto)

[Nicola]

Probabilmente sto cercando di spingermi troppo in la' rispetto alle mie conoscenze, però ho visto che con il vostro aiuto ho fatto cose... che mai avrei pensato di poter realizzare. Passiamo al concreto: ho creato una sorta di gestionale per la gestione dei cespiti delle mie due società (molto amatoriale); ora ho avuto la bella idea di voler
selezionare l'azienda in gestione PRIMA che si apri il form principale, problema è che non ci riesco.
Questa è la situazione di partenza:

Codice: [Seleziona]

program LGestioneCespiti;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, uGestioneCespiti, UDichiarazioni, ULetturaDati,
  UInserimentoMovimenti, ............................, uScegliAzienda;

{$R *.res}

begin
  Application.Title:='LGestioneCespiti';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TTfMenuGenerale, TfMenuGenerale);
  Application.CreateForm(TTfInserimentoMovimenti, TfInserimentoMovimenti);
  ..
  ..
  Application.CreateForm(TTfScegliAzienda, TfScegliAzienda);
  Application.Run;
end.

ScegliAzienda sarebbe il form che dovrei mandare in esecuzione prima di MenuGenerale, quindi l'ho inserito subito dopo Application.Initialize, ma non cambia nulla.
Come potrei fare?

[nomorelogic]

Per esempio, nella OnCreate del menù generale, come prima istruzione, potresti mettere il lancio della form di selezione dell'agenda.

[Nicola]

Ho fatto cosi:

Codice: [Seleziona]

procedure TTfMenuGenerale.FormCreate(Sender: TObject);

begin
TfScegliAzienda.ShowModal;TfMenuGenerale.Show;
end;   

ma mi segnala errore (come da allegati); mi par di capire che punti ad una form
che ancora non esiste ho provato anche a cambiare l'ordine in questo modo

Codice: [Seleziona]

begin
  ...
  Application.Initialize;
  Application.CreateForm(TTfMenuGenerale, TfMenuGenerale);
  Application.CreateForm(TTfScegliAzienda, TfScegliAzienda);
.
  Application.Run; 

Grazie
ps ho cancellato parte del nome dell'azienda dall'errore per motivi di "privacy"

[Stilgar]

Prova a spostare la creazione della form.
L'errore (9 su 10) è dovuto al fatto che usi la form prima di averla istanziata.

Codice: [Seleziona]

procedure TTfMenuGenerale.FormCreate(Sender: TObject);

begin
  Application.CreateForm(TTfScegliAzienda, TfScegliAzienda);
  TfScegliAzienda.ShowModal;
end; 

Codice: [Seleziona]

  begin
  ...
  Application.Initialize;
  Application.CreateForm(TTfMenuGenerale, TfMenuGenerale);
.
  Application.Run; 

Stilgar

PS:
Paura che ti venga a tirare le orecchie in azienda. Altro che privacy 

[nomorelogic]

Ho fatto cosi:

Codice: [Seleziona]

procedure TTfMenuGenerale.FormCreate(Sender: TObject);

begin
TfScegliAzienda.ShowModal;TfMenuGenerale.Show;
end;   

prova così:

Codice: [Seleziona]

procedure TTfMenuGenerale.FormCreate(Sender: TObject);
var fScegliAzienda: TfScegliAzienda;
begin
   fScegliAzienda:= TfScegliAzienda.Create(self);
   if fScegliAzienda.ShowModal = mrOk then begin
      // ... fai qualcosa
   end;
   fScegliAzienda.Free;
end;   

[Nicola]

Be un po di paura mi pare ovvio 
Stasera provo, grazie

[Nicola]

E ovviamente ora non ho piu problemi! thanks 

[nomorelogic]

Nicola facci sapere come hai risolto
grazie

[Nicola]

Cosi:

Codice: [Seleziona]

procedure TTfMenuGenerale.FormCreate(Sender: TObject);

begin
  Application.CreateForm(TTfScegliAzienda, TfScegliAzienda);
  TfScegliAzienda.ShowModal;
end; 

[Stilgar]

Occhio.
La mia soluzione ha un problema.
Crea come "MainForm" la variabile TfScegliAzienda.
Uccidendo quell'istanza fai chiudere l'applicazione.
Quella di nomore è più corretta. La mia serviva solo per evitare i "null pointer" ...

Stilgar

[Nicola]

A dire il vero, quando parte l'applicazione si apre la finestra, poi premendo un bottone "Continua", faccio chiudere
la finestra (per ora nella form ScegliAzienda ho inserito solo quello) e si apre la form principale. Ho fatto due tre prove e non ho riscontrato problemi.

[Stilgar]

Un conto che sia visible o meno la form.
Un conto è che sia in memoria o meno.
Se l'istanza del main form viene uccisa, l'applicazione esce dal loop dentro il .Run
Volevo solo segnalare questa cosa.

[Nicola]

.... perdonami ma non saprei come vedere la differenza.....
ma non darmi del Lei che mi fai sentire vecchio 

[Stilgar]

Prova con:
: [Seleziona]
procedure TTfMenuGenerale.FormCreate(Sender: TObject);

begin
 

Codice: [Seleziona]

Application.CreateForm(TTfScegliAzienda, TfScegliAzienda);
  TfScegliAzienda.ShowModal;
TfScegliAzienda.free;
end;