Na to je najjednoduchšie použiť Delphi utilitu na tvorbu zdrojov (resource) -
Image Editor.
V menu Delphi vyber
Tools a tam vyber
Image Editor. Keď sa spustí tento editor, vyber možnosť
File,
New... a nakoniec
Resource File (.res). V ďalšom okienku klikni pravým tlačidlom a vyber možnosť
New,
Icon. Vyber veľkosť ikony (16x16 alebo 32x32) a potvrď OK (nevýhodou je maximálny počet farieb - 16. Tzn, že ak máš nejakú graficky náročnejšiu ikonu, tak musíš zvoliť iný postup). Teraz to pridalo ikonu
Icon1. Tú si premenuj na, napríklad,
IKONA (raz klikni na jej názov a prepíš). Potom dva krát klikni na názov a cez schránku (Ctrl+V) vlož svoju ikonu (niekde trebárs v kreslení si ju skopíruj). Keď sa vloží, môžeš okno zavrieť a resoruce uložiť napríklad ako
Zdroj.res do zložky, kde je tvoj projekt. Potom už iba programovo vykonaj toto:
Pod direktívu
Kód:
{$R *.dfm}
(mala by sa nachádzať hneď pod implementation) pridaj riadok:
Kód:
{$R Zdroj.res} // toto je názov zdroja (resource-u)
Potom do OnCreate a OnDestroy hlavného formu pridaj:
Kód:
var
appIcon: TIcon;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
appIcon:= TIcon.Create;
appIcon.Handle:= LoadIcon(hInstance, 'IKONA'); // toto je názov ikony, pretože v zdroji ich môže byť viac
Application.Icon:= appIcon;
...
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
appIcon.Free;
end;
Nakoniec v menu vyber možnosť
Project a
Build názov_projektu. Build dávaj stále, keď vykonáš nejakú zmenu v resourci.