Bild aus ImageList in Statusbar

[rebugger]

Wie kann ich ein Bild per Knopfdruck aus einer ImageList in ein bestimmtes Panel meiner Statusbar laden ?

[Luckie]

Mit der Windows Nachricht SB_SETICON.

[rebugger]

Entschuldige, aber es hilft mir auch kaum weiter.
Könntest du mir vielleicht noch etwas mehr Code außenherum geben ?

[Luckie]

SendMessage(hwndStatus, SB_SETICON, 1, hIcon); hWndStatus ist ein Handle auf deine Statusbar, hIcon ein Handle auf ein Icon. Der wParam von SB_SETICON gibt den Index des Panels an, in dem das Icon angezeigt werden soll.

[thomasdrewermann]

Hi,
das funktioniert bei mir leider nicht, er kennt den Nachrichten-Typ SB_SETICON garnicht.

Fehlermeldung: Undeclared identifier: SB_SETICON

Das habe ich geschrieben:
sendmessage(statusbar1.Handle,SB_SETICON,form1.Icon.Handle); MFG
Thomas

[rebugger]

[Fehler] unit_main.pas(132): Undefinierter Bezeichner: 'SB_SETICON'

Der kennt das irgendwie nicht...

[Luckie]

Delphi-Quellcode:

uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  hIcon: THandle;
begin
  hIcon := LoadIcon(hInstance, MAKEINTRESOURCE('MAINICON'));
  SendMessage(StatusBar1.Handle, SB_SETICON, 0, hIcon);
end;

Etwas mitdenken bitte.

[rebugger]

Der Code scheint nur für Icons in der .res-Datei zuzutreffen.
Ich habe darin aber 2 Bitmaps mit 16x16 Pixel - wie kann ich diese laden ???

[MrKnogge]

Die ImageList hat eine funktion oder prozedur mit dem Namen "GetIcon", da bekommst du dein Bild als Icon egal ob du es vorher als Icon oder BitMap hinzugefügt hast

[ManuMF]

Hallo,

ich habe ein Problem. Wie kann ich die ImageList mit Luckies Code-Beispiel verbinden?

Bisher habe ich

Delphi-Quellcode:

Icons.GetIcon(1, SIcon);
SendMessage(StatusBar.Handle, SB_SETICON, 1, SIcon.Handle);

aber das führt zu einer Zugriffsverletzung beim Ausführen.

Gruß,
ManuMF