FormWindowStateChange non funziona

[bonmario]

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.

Codice: [Seleziona]

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

[bonmario]

Dimenticavo: quando massimizzo la finestra, stranamente la "FormWindowStateChange" viene eseguita

Alla fine ho "aggirato" il problema disabilitando la "FormWindowStateChange", ed usando questo codice:

Codice: [Seleziona]

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

[DragoRosso]

Cos'è "FormWindowStateChange" ?

[bonmario]

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

[nomorelogic]

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?

[bonmario]

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.

[DragoRosso]

Forse il problema è qui (customform.inc):

Codice: [Seleziona]

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;

[bonmario]

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 !!!

[nomorelogic]

prova a vedere se nell'object inspector le proprietà delle 2 form sono impostate allo stesso modo

[DragoRosso]

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.

[bonmario]

prova a vedere se nell'object inspector le proprietà delle 2 form sono impostate allo stesso modo

A meno di sviste sembrerebbero identici

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

[DragoRosso]

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.

[bonmario]

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 !!!

[bonmario]

Invece di usare HIDE, prova ad usare la proprieta "Visible" della Form e impostala a False.

Niente da fare, non funziona

Grazie comunque !

[DragoRosso]

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.