TTaskbar: Neues Icon zuweisen?

[himitsu]

Der Form ist aber kein Icon zugewiesen?
Wenn doch, dann überdeckt sie ja das Application.Icon.

Mal versuchen das Icon in die Form der laden?


Der Code liegt aber nicht in einem Package oder DLL?
HInstance ist das Handle des Moduls (EXE/DLL/BPL), in welchem der Code liegt.
MainInstance ist immer das der EXE, aber auch 0 entspricht der EXE.

Delphi selbst lädt so das Icon ins Application, beim Programmstart (TApplication.Create).
Application.Icon.Handle := LoadIcon(MainInstance, 'MAINICON');

Und falls bei Abfrage in Application und Form kein Icon-Handle vorhanden ist, dann wird dort via LoadIcon(0, IDI_APPLICATION) versucht Eines zu laden, aber das dürfte vom Ergebnis her dem Ersten entsprechen.


Versuch es mal so

Delphi-Quellcode:

NewIcon.LoadFromResourceName(HInstance, AResName);
Application.Icon := NewIcon;  // macht aber intern eigentlich auch nur ein Assign
NewIcon.Free;
// oder
Application.Icon.LoadFromResourceName(HInstance, AResName);
// oder
var Stream := TResourceStream.Create(HInstance, AResName, RT_ICON);
Application.Icon.LoadFromStream(Stream);
Stream.Free;

aber ich hätte jetzt keinen Unterschied erwartet, egal ob es über das Handle oder direkt in die VCL-Komponente geladen oder über ein zusätzliches TIcon übergeben wird.