Italian community of Lazarus and Free Pascal

A volte si ha la necessità di iconizzare i programmi nella System Tray.
Il system tray è quella porzione di schermo che si trova a destra della barra delle applicazioni e a sinistra dell'orologio di sistema.
Fare ciò in Lazarus è davvero semplice con l'oggetto TTrayIcon. Creiamo un programma di esempio
File -> Nuovo -> Applicazione
Sulla Form nuova che vi si presenta inserite un oggetto TTrayIcon che trovate nel Tab "Additional"
Rinominate quell'oggetto con il nome SystrayIcon
Successivamente spostatevi nella sezione eventi dell'"Ispettore oggetti" dell'oggetto di nome SystrayIcon.
Doppio click sull'evento OnClick e inserite il seguente codice

  Form1.Visible:=TRUE;
  SystrayIcon.Hide;

Ora aggiungete un TButton alla form e cliccateci sopra due volte, aggiungete il seguente codice:

  SystrayIcon.Icon.LoadFromFile('icon.ico'); {l'immagine icon.ico è presente nell'esempio allegato}
  SystrayIcon.ShowIcon:=True;
  SystrayIcon.Hint := 'Mio esempio TTrayIcon';
  SystrayIcon.Show;
  Form1.Visible:=FALSE;

Bene non ci resta che compilare ed eseguire il progetto. Provate a premere il pulsante sul Form e poi andate a pasare il mouse nella System Tray vedrete un iconcina (con degli ingranaggi) nuova, se ci cliccate sopra avrete nuovamente il programma a video.

E' possibile scaricare l'esempio all'indirizzo: http://www.lazaruspascal.it/esempi/Example_TTrayIcon.zip