Ciao a tutti,
ho 2 progetti, e tutti e 2 hanno il codice qui sotto che serve per fare in modo che, quando l'utente clicca sull'icona per minimizzare il form, il form stesso venga nascosto. Lo può far rivedere cliccando sull'icona nella tray area.
procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
//Quando il form viene minimizzato e ridotto ad icona, lo nascondo e lo porto
//nella tray area
if (WindowState = wsMinimized) then begin
MyTrayIconClick(Sender);
end;
end;
In uno dei 2 progetti funziona da tempo, nell'altro, dove ho appena inserito quel codice e verificato anche in debug, non passa nella "FormWindowStateChange".
Forse dovevo impostare qualcosa che non ricordo per farlo funzionare?
Grazie, Mario
Dimenticavo: quando massimizzo la finestra, stranamente la "FormWindowStateChange" viene eseguita
Alla fine ho "aggirato" il problema disabilitando la "FormWindowStateChange", ed usando questo codice:
Nella FormCreate ho aggiunto questa
Application.OnMinimize:=@AppMinimize;
Questo il suo codice
procedure TForm1.AppMinimize(Sender: TObject);
begin
//Quando il form viene minimizzato e ridotto ad icona, lo nascondo e lo porto
//nella tray area
MyTrayIconClick(Sender);
end;
Mi piacerebbe però capire perché in un programma funziona in una maniera e nell'altra no !!!
Ciao, Mario
Cos'è "FormWindowStateChange" ?
E' un evento associato al Form. Nell'Object Inspector è l'ultimo dell'elenco.
Da quello che avevo capito quando ho iniziato ad usarlo, dovrebbe essere richiamato ogni volta che cambia lo stato del form.
Nello specifico, se succede almeno una di queste:
- Il form viene ridimensionato
- Il form viene massimizzato
- Il form viene minimizzato
Nel progetto "più vecchio", ho verificato e la FormWindowStateChange viene eseguita in tutti e 3 i casi.
Nell'altro progetto, invece, viene eseguita per i primi 2 casi, ma non quando minimizzo il form
Citazione di: bonmario il Settembre 11, 2026, 09:21:17 AM
Mi piacerebbe però capire perché in un programma funziona in una maniera e nell'altra no !!!
li compili tutti e 2 con la stessa versione di Lazarus/FreePascal?
Sì, sono tutti e 2 sullo stesso PC e li compilo con lo stesso Lazarus.
La differenza più evidente tra i 2, è che il progetto più vecchio e che funziona l'ho creato qualche anno fa, 4 o 5 anni più o meno.
Quello che ha problemi l'ho creato intorno ad aprile di quest'anno, quindi i 2 progetti sono stati creati con 2 versioni diverse di Lazarus.
Forse il problema è qui (customform.inc):
procedure TCustomForm.Resizing(State: TWindowState);
var
OldState: TWindowState;
begin
if Showing and not (csDesigning in ComponentState) then <--------------------- SHOWING ... potrebbe non essere allineata con lo stato del componente
begin
................................
................................
if Assigned(OnWindowStateChange) then
OnWindowStateChange(Self);
end;
end;
end;
Citazione di: DragoRosso il Settembre 11, 2026, 02:02:04 PM
Forse il problema è qui (customform.inc):
Esatto, sembra proprio quello.
Se metto un blocco su quella if, il risultato è questo:
- nel programma funzionante Showing è True
- nel programma dove non funziona Showing è False
Però continuo a non capire perché in uno funziona e nell'altro no !!!
prova a vedere se nell'object inspector le proprietà delle 2 form sono impostate allo stesso modo
Citazione di: bonmario il Settembre 11, 2026, 02:16:37 PM
Però continuo a non capire perché in uno funziona e nell'altro no !!!
Perchè lo dice la WIKI di Lazarus: Showing è una proprietà asincrona e come tale non è garantito il suo stato sincronizzato con il componente.
In pratica ti dicono che quella proprietà non è affidabile (e quindi non dovrebbe essere usata neanche da loro stessi ... teoricamente).
P.S.: ricordo in passato di avere avuto alcune situazioni dubbie quando usavo la proprietà HIDE (su Delphi) ... prova a verificare su usi HIDE da qualche parte.
Citazione di: nomorelogic il Settembre 11, 2026, 03:19:26 PM
prova a vedere se nell'object inspector le proprietà delle 2 form sono impostate allo stesso modo
A meno di sviste sembrerebbero identici
Citazione di: DragoRosso il Settembre 11, 2026, 03:32:42 PM
prova a verificare su usi HIDE da qualche parte.
Sì, lo uso. In pratica quei 2 programmi funzionano così:
- hanno l'icona nella "Tray Area" di windows
- se l'utente clicca su quell'icona ed il form è visualizzato, viene nascosto (proprio con Form1.Hide). Faccio la stessa cosa anche se l'utente clicca sull'icona che serve per minimizzare la finestra
- se l'utente clicca su quell'icona ed il form è nascosto, viene visualizzato
Citazione di: bonmario il Settembre 11, 2026, 05:44:31 PM
Citazione di: DragoRosso il Settembre 11, 2026, 03:32:42 PM
prova a verificare su usi HIDE da qualche parte.
Sì, lo uso.....
Invece di usare HIDE, prova ad usare la proprieta "Visible" della Form e impostala a False.
Ci provo lunedì dal lavoro, perché qui a casa uso Linux e ed avrei parecchi errori se provassi a lanciarlo...
Poi vi faccio sapere.
Grazie !!!
Citazione di: DragoRosso il Settembre 11, 2026, 06:23:34 PM
Invece di usare HIDE, prova ad usare la proprieta "Visible" della Form e impostala a False.
Niente da fare, non funziona
Grazie comunque !
Hai sistemato comunque tramite l'altro evento (Application.OnMinimize)
E' probabile che l'inghippo sta nella gestione di quell'evento (che in Delphi neanche esiste).
Io normalmente uso "OnResize" se voglio tracciare lo stato di una Form e tutte le applicazioni che faccio hanno il resize (qualsiasi, compreso il movimento) bloccato una volta che l'applicazione è partita e si è adattata allo schermo.