Nur kleinstes Icon im TNA

[scp]

So, habs jetzt mal mit dem CoolTrayIcon getestet, hier das Ergebnis:

Delphi-Quellcode:

implementation

{$R *.dfm}
{$R D:\SOURCE\Delphi32\IMG\aol9\aol9.res}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoolTrayIcon1.Icon.Handle := LoadImage(hInstance, 'AOL_ICON', IMAGE_ICON   , 16, 16, LR_DEFAULTCOLOR);
end;

procedure TForm1.CoolTrayIcon1Click(Sender: TObject);
begin
  CoolTrayIcon1.ShowMainForm;
  CoolTrayIcon1.IconVisible := false;
end;

end.

Also diesen Code ins OnCreate des Form bzw. OnClick des TrayIcon und im OI die Eigenschaft MinimizeToTray auf true.
Die hinzugefügte .res-Datei enthält das Icon, welches mehrere Grössen und Auflösungen bereithält (16x16, 32x32 usw.). "AOL_ICON" ist in dem Fall der Name der Icon-Gruppe.