[Risolto] ShowMessage senza bottone

[petrusic]

Ora il video dovrebbe essere visibile.

Si, perfetto. Grazie

[petrusic]

Coi suggerimenti  di xinyiman, comprensivi del video seguito poco fa, ho imparato tantissimo e mi sento pronto per metterli in pratica al momento opportuno.
Per questo programma, ho modificato la mia idea iniziale ed ho pensato di utilizzare all'avvio una MessageDlg che mi permette di chiudere il programma, avviato eventualmente per errore, ancor prima di dare corso al caricamento dati dal DB.
Invece, in caso di avvio corretto del programma, rimando il caricamento dei dati dal DB, dopo il consenso a proseguire, dato nella MessageDlg.
Infatti, sparendo la finestra di dialogo, il Focus si sposta sull'unico pulsante visibile ed attivo della Form e, dentro la procedura .Enter dello stesso, inserisco le istruzioni di:
- visibilità di tutti gli altri oggetti componenti la Form, lasciandoli però inibiti;
- procedo al caricamento dei dati necessari dal DB;
- a fine caricamento, rendo validi tutti gli oggetti della form, per permettere
la ripresa dell'attività dell'utente.
Allego due immagini di chiarimento

[xinyiman]

Ottimo, felice di essere stato d'aiuto

[petrusic]

Riprendo questa discussione, perchè mi sono deciso finalmente a metter in pratica i suggerimenti ricevuti a suo tempo.
Ho provato perciò mandare su una piccola Form un messaggio di "attesa", da gestire interamente tramite codice.

Mi sono orientato su questo post, ma, ahimè, la prova è fallita.
Riporto le righe con le modifiche:

- nel file frm9.pas:

Codice: [Seleziona]

unit Frm9;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Grids, LCLType, Math, memds, LR_Class, LR_DBSet, lr_e_pdf, Types,
  FrmAttesa, UModuloDatiDB, utilmie;

type       
. . .
procedure AmmortamentoCespiti();   
. . .
  FormAttesa:= TFormAttesa.Create(self);
  FormAttesa.msg:= 'Ricerca   MOVIMENTI AMMORTIZZABILI  in corso' + lineending + lineending + '-----  A T T E N D I  -----';
  FormAttesa.Show;            
. . .
  Formattesa.Close;
  FreeAndNil(FormAttesa);
- - - 
end;                           

- nel file frmAttesa.pas

Codice: [Seleziona]

unit FrmAttesa;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type
  { TFormAttesa }
  TFormAttesa = class(TForm)     //  Form speciale per emissione MESSAGGI
    BPulsOk: TButton;
    Label1: TLabel;
    Panel1: TPanel;
    procedure BPulsOkClick(Sender: TObject);
    procedure BPulsOkEnter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public
  end;

var
  FormAttesa: TFormAttesa;

  msg: String;
implementation
uses
  FrmMain;
{$R *.lfm}
procedure TFormAttesa.FormCreate(Sender: TObject);
begin
end;

procedure TFormAttesa.BPulsOkEnter(Sender: TObject);
begin
  Label1.Caption:= msg;
end;

procedure TFormAttesa.BPulsOkClick(Sender: TObject);
begin
  self.Hide;
  Close;
end;
end.

Purtroppo non riesco a compilare, per l'Errore "frm9.pas(10,3) Error: Impossibile trovare FrmAttesa usato da Frm9 dell'Analizzatore Progetti."  segnalato dal compilatore.
Ho inserito il nome del file nella finestra dell'Analizzatore Progetti, ma non è cambiato nulla.
Ho guardato anche in:  Progetto -> Opzioni Progettoi -> Form ed ho notatoi che la FormAttesa manca. Dovrei aggiungerla, ma non ho trovato come fare.

A questo punto però mi viene anche il dubbio che ho sbagliato tutto, perchè, magari, non ho capito il suggerimento ricevuto.

[petrusic]

Io proprio non riesco a capire:

La mia Form1  visibile  in : -> Progetto -> Opzioni Progetto -> Form trova corrispondenza coi file  frmmain.lfm e frmmain.pas

Ora ho provato a fare la stessa cosa con la Form8 rinominando la Unit in frmAttesa e rinominando i file frm8.lfm e frm8.pas nei rispettivi frmAttesa.lfm  e frmAttesa.pas.

Ebbene, mentre per la frmmain non mik viene segnalato nessun errore, per la nuova frmAttesa, mi viene segnalato l'Errore "frmmain.pas(9,76) Error: Impossibile trovare FrmAttesa usato da FrmMain dell'Analizzatore Progetti.".

A chiarimento di quanto fatto allego le immagini delle finestre interessate.

Ma allora come devo agire per modificare il nome di una Form e dei file corrispondenti per non fare arrabbiare l'ambiente Lazarus?

[DragoRosso]

Non puoi rinominare i file (a parte che non hai indicato dome hai fatto ...): per rinominare una UNIT (con o senza form) devi usare "SALVA COME" dal menu "FILE" del IDE.

Ciao

[petrusic]

Non puoi rinominare i file (a parte che non hai indicato dome hai fatto ...): per rinominare una UNIT (con o senza form) devi usare "SALVA COME" dal menu "FILE" del IDE.

Anche se penso di avere già seguito il percorso che mi hai ora suggerito, ho ripetuto l'operazione, ma il riferimento alla Form8 , contenuta nel file frmattesa, non è stata aggiunta all'elenco delle form disponibili dentro le opzioni di tipo form del progetto (vedi immagine allegata)

[DragoRosso]

Non saprei cosa dirti: io uso Lazarus 3.2 in Windows e non solo rinomina i file, ma aggiorna anche i riferimenti nei sorgenti (cioè nelle Uses rinomina il riferimento con il nuovo).

Forse qualcun altro del forum che usa più assiduamente Lazarus può fornirti qualche delucidazione.

Ciao

[nomorelogic]

anche su Linux funziona allo stesso modo
uso spesso quella funzionalità da menù, sia per rinominare le form che i progetti ed ha sempre funzionato

potrebbe essere anche il case che non riesce a fare il match tra i nomi dei file e la dichiarazione del nome della unit: controlla i case quindi

ad esempio l'errore che hai segnalato è:
Error: Impossibile trovare FrmAttesa usato da FrmMain dell'Analizzatore Progetti.".

mentre nelle dichiarazioni leggo frmAttesa

comunque penso che puoi sistemare manualmente:
- ricontrolla meticolosamente tutti i nomi dei file rispettando il case
- controlla che il nome della unit corrisponda all'identificatore dopo la keyword "uses" nel sorgente (sempre rispettando il case)
- aggiungi manualmente la form


alla fine credo dovresti riuscire a sistemare

[DragoRosso]

potrebbe essere anche il case che non riesce a fare il match tra i nomi dei file e la dichiarazione del nome della unit: controlla i case quindi

Hai ragione @nomorelogic, il case mi era sfuggito (non ci faccio caso lavorando con un sistema operativo e soprattutto un linguaggio case insensitive  )

Ciao

[xinyiman]

Come ti è già stato suggerito non devi rinominare i file a mano. Se lo fai, l'analizzatore dei progetti perde il riferimento. Devi poi dall'analizzatore eliminare la dipendenza e rilinkarla a mano.

[petrusic]

Va bene. Sono riuscito a reimpostare la form col nuovo nome unit "Frmattesa".
Ora però il com pilatore mi da un altro errore.
Riporto le righe di codice interessate, copiate da qui:

Codice: [Seleziona]

begin

  Frmattesa:= TForm8.Create();       <-- Riga 2498
  Frmattesa.msg:= 'Ricerca   MOVIMENTI AMMORTIZZABILI  in corso' + lineending + lineending + '-----  A T T E N D I  -----';
  Frmattesa.Show;

  annoCorr:= StrToInt(LeftStr(Form9.dataFin, 4));
. . .
altre istruzioni
. . .
  Frmattesa.Close;
  FreeAndNil(Frmattesa);    

Ecco il messagio d'Errore:

frm9.pas(2498,12) Error: Syntax error, "." expected but ":=" found

Nell'esempio di codice suggerito a suo tempo da  nomorelogic il richiamo della Form di Attesa viene fatto con la Form chiamante vuota, mentre io non mi trovo in quella condizione. Non mi rendo conto se ciò possa in qualche modo influire sulla formulazione dell'Errore riportato sopra.

[DragoRosso]

FRMAttesa è il nome della UNIT o della Form ?

Il compilatore sembra aspettarsi il '.', io quindi mi aspetto che FRMAttesa sia il nome della UNIT ...

Unit e componenti vari non possono e non devono avere lo stesso nome.

Estrapolando il codice non è comunque chiaro l'errore.

Ciao

[petrusic]

FRMAttesa è il nome della UNIT o della Form ?

E' il nome della Unit:

Codice: [Seleziona]

unit Frmattesa;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

  { TForm8 }

  TForm8 = class(TForm)     //  Form speciale per emissione MESSAGGI
    BPulsOk: TButton;
    Label1: TLabel;
    Panel1: TPanel;
    procedure BPulsOkClick(Sender: TObject);
    procedure BPulsOkEnter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private


  public

  end;

var
  Form8: TForm8;

  msg: String;
implementation                              

[DragoRosso]

E' il nome della Unit:

Quindi stai creando un TForm ... istanziandola con il nome della UNIT ?

Devi instanziare (creare) un oggetto con la sua VAR:

Codice: [Seleziona]

Form8 := TForm8.Create();