Questa volta parliamo di una piccola cicca grafica, ovvero come cambiare l’icona dell’applicazione a run-time. L’oggetto Application mette a disposizione la proprietà “Icon” che fa proprio al caso nostro.
Se quindi vogliamo cambiare l’icona al nostro programma non dovremo far altro che modificare la proprietà con la nuova icona. Vediamo come fare il tutto con un esempio:

procedure MostraIcona(icona1:boolean);
begin
if icona1 then
Application.icon:=Image1.Picture.Icon;
Else
Application.icon:=Image2.Picture.Icon;
end;


Questa semplice procedura non fa altro che impostare l’icona tra due possibili scelte (in base al valore del parametro “icona1”) che corrispondono a due immagini che avremo preventivamente caricato.