Icon für Formular aus Resourcen

[shmia]

Ein Formular kann ja bekanntlich ein eigenes Icon erhalten.
Wenn man das Property [TForm].Icon im Objektinspektor befüllt werden die Icondaten im Formular gespeichert.
Man kann das Icon aber auch zur Laufzeit aus den Resourcen der eigenen Anwendung oder einer DLL laden.
Es gibt 2 Vorteile:
* das Programm wird etwas kleiner (wenn man Icons mehrfach verwendet)
* Icons in Resourcen lassen sich flexibler verwenden und können später auch mit einem Resourceneditor geändert werden

Delphi-Quellcode:

procedure TAbrechnungForm.FormCreate(Sender: TObject);
begin
  Icon.Handle := Loadicon(HInstance, PChar((classname)+'ICON'));

In den Resourcen der eigenen Anwendung muss sich ein Icon mit dem Namen "TAbrechnungFormICON" befinden.
Der Name der Icons setzt sich zusammen aus dem Klassennamen der Formulars und dem Zusatz ICON.
Das ist einfach eine nützliche Namenskonvention.
Sollte das Icon nicht vorhanden sein, wird Icon.Handle = 0 und das Default-Icon aus den Projektoptionen ('MAINICON') wird angezeigt.

Wie man ein Icon in die Resourcen einbindet, wird z.B. hier erklärt:
http://www.delphipraxis.net/internal_redirect.php?t=326

Wenn man möchte, kann man das Icon auch aus einer Datei laden:

Delphi-Quellcode:

procedure TAbrechnungForm.FormCreate(Sender: TObject);
begin
  Icon.Handle := LoadImage(0, PChar('C:\test.ico'), IMAGE_ICON, 16, 16, LR_LOADFROMFILE);
end;

Interessanter ist allerdings das Laden von Icons aus einer Windows-DLL:

Delphi-Quellcode:

// lade Icon #2 aus der Shell32.dll
Icon.Handle := LoadImage(GetModuleHandle('shell32.dll'), MakeIntResource(2), IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR);

[edit=Matze]Code formatiert. Mfg, Matze[/edit]