Alle Tray-Icons auflisten

[kurtm1]

Wie kann ich alle TrayIcon - Texte (...) in eine listbox bekommen?

Sprich einfach auflisten welche Trayicons derzeit grad neben der Uhr sind.

thx

[toms]

Hi,

Schau mal in die Anlage

[kurtm1]

thx

[Jonas]

Hi....ich wollte fragen wie ich die Tray Icons einfach so als Objekt?! Bild?! auf meine Komponente bekomme, ohne eine Listview und so!?

[toms]

Hallo,

Schau dir mal DrawIcon resp. DrawIconEx an.

DrawIcon(bmp.Canvas.Handle, 0, 0, ticons[x].hIcon);

[Jonas]

ich check das nich so ganz

Delphi-Quellcode:

for x := 1 to LV.items.count-1 do
begin
task[1]:= TImage.Create(nil);
with task[1] do
        begin
             Parent := frmMain;
             Height := 27;
             Width := 100;
             Top := 12;
             Picture.Icon := TIcon.Create;
             Stretch := true;
             if x <> 0
             then Left := Width * x + (x-2)*Height
             else Left := Parent.Width - Width * 3 div 2;
             Show;
             Repaint
        end;
end;

Joa das bei Picture.Icon is falsch, ist mir schon klar, nur was kommt dahin? oder kann man das gar nicht so machen?