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