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]