Impedire riduzione ad icona di una form

[tito_livio]

Buongiorno a tutti,
forse mi sto perdendo in un bicchiere d'acqua, ma come si fa ad impedire che una form venga ridotta ad icona?
Ho provato mettendo FormStyle=fsStayOnTop e ho provato con abort nell'evento OnDeactivate della form ma non funzionano.

Tito

[DragoRosso]

Dalla proprietà della Form -> BorderIcons togli la spunta a biMinimize intanto.

Inoltre tutte le applicazioni possono essere messe in condizioni di icona ridotta tramite la barra applicazioni (non è possibile evitare ciò, almeno per mia conoscenza).

Se vuoi bloccare l'applicazione dagli spostamenti (compreso l'eventuale messa a icona in altri modi, eccetto come dicevo la barra) puoi intercettare il messaggio "WM_WindowPosChanging":

Codice: [Seleziona]

var PosLocked: boolean = True;

procedure PosChange(var Msg: TWmWindowPosChanging); message WM_WINDOWPOSCHANGING;

procedure TForm1.PosChange(var Msg: TWmWindowPosChanging) ;
begin
  if PosLocked then
    begin
      Msg.WindowPos.x := Left;
      Msg.WindowPos.y := Top;
      Msg.Result := 0;
    end
  else
    inherited;
end;

Ciao

[tito_livio]

Grazie @DragoRosso, funziona, ho bloccato la riduzione a icona.
Bloccare lo spostamento non era richiesto ma potrebbe servire in futuro.

Ciao.

[DragoRosso]

Grazie @DragoRosso, funziona, ho bloccato la riduzione a icona.
Bloccare lo spostamento non era richiesto ma potrebbe servire in futuro.
Ciao.

Se vuoi bloccare solo la riduzione ad icona, potresti controllare nella procedura i valori "Msg.WindowPos.x" e "Msg.WindowPos.y" prima di cambiarli. Prova a vedere con il debugger il valore che hanno quando l'app viene messa ad icona (teoricamente potrebbe essere -1 e -1, ma questi valori sono validi anche quando sposti fuori dallo schermo la tua Form ....).

Ciao

[tito_livio]

Ho fatto un po' di prove e  scrivendo "Msg.WindowPos.x" e "Msg.WindowPos.y" in Lazarus dà errore e non compila.
Infatti scritto così funziona in Delphi (provato in Delphi 7), in Lazarus invece bisogna scrivere:  "Msg.WindowPos^.x" e "Msg.WindowPos^.y".
Se l'applicazione è ridotta ad icona la coppia di coordinate della posizione del form è (0,0) in entrambi gli ambienti di sviluppo, valore uguale alla posizione di partenza del form.
Comunque il metodo funziona benissimo per tenere fermo la form/applicazione.
Inoltre, se l'applicazione gira su di un computer multi monitor, impostare le coordinate  può servire per decidere in quale monitor l'applicazione deve stare, utile, per esempio, per programmi elimina code o comunque che prevedono anche un monitor dedicato ad un "pubblico".

Ciao.

[DragoRosso]

Ho fatto un po' di prove e  scrivendo "Msg.WindowPos.x" e "Msg.WindowPos.y" in Lazarus dà errore e non compila.
Infatti scritto così funziona in Delphi (provato in Delphi 7), in Lazarus invece bisogna scrivere:  "Msg.WindowPos^.x" e "Msg.WindowPos^.y".

Si, scusa errore mio. Sono abituato con Delphi che "dereferenzia" il puntatore in automatico.

Se l'applicazione è ridotta ad icona la coppia di coordinate della posizione del form è (0,0) in entrambi gli ambienti di sviluppo, valore uguale alla posizione di partenza del form.

Uhmm ... dovrò approfondire ...

Inoltre, se l'applicazione gira su di un computer multi monitor, impostare le coordinate  può servire per decidere in quale monitor l'applicazione deve stare, utile, per esempio, per programmi elimina code o comunque che prevedono anche un monitor dedicato ad un "pubblico".

Su questo bisogna stare attenti (anche se funziona) perchè le coordinate dei monitor non è detto che siano ciò che noi pensiamo. Dipende dal DPI e da come è settata l'applicazione.

Si possono usare anche Screen e Monitors che sono variabili predefinite.

Ciao