Mouseover med .ico filer

Indsæt en ImageList og tilføj de to ønskede ikoner.
Tilføj en procedure:
    procedure WndProc(var Message : TMessage); override;

og som implementation:
procedure TForm1.WndProc(var Message : TMessage);
var
  Icon: TIcon;
begin
if Message.LParam = Longint(Image1) then
begin
  if (Message.Msg = CM_MOUSELEAVE) then
  begin
    Icon:=TIcon.Create;
    ImageList1.GetIcon(1,Icon);
    Image1.Picture.Icon := Icon;
    Icon.Free;
  end else if (Message.Msg = CM_MOUSEENTER) then
  begin
    Icon:=TIcon.Create;
    ImageList1.GetIcon(0,Icon);
    Image1.Picture.Icon := Icon;
    Icon.Free;
  end;
end;
inherited WndProc(Message);
end;

Virker fint for mig :D

Jeg kan ikke få det til at virke, den skriver:
[Error] Unit1.pas(23): Undeclared identifier: 'WndProc'

I såfald tror jeg ikke at du har tilføjet proceduren som jeg skrev... I koden vil du se følgende:
type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Image1: TImage;

Tilføj en ny linje efter "Image1: TImage;", hvor der står "procedure WndProc(var Message : TMessage); override;"... Herefter er WndProc 'declared'

Tak Kaper, du havde ret! Der er dog stadig et lille problem, billedet bliver meget mindre end det i virkeligheden er med din procedure!? Det kan jeg ikke lige forstå, ved du hvorfor?

Jeg tror, det er fordi det er ikoner, der skal passe ind i fx programmets titellinje - men det kan måske løses ved at konvertere dine ikon-filer til bitmaps og ændre koden en smule

Det skal være ikoner, fordi de SKAL være gennemsigtige! Jeg har sat image1 til at være et af ikonerne, men når jeg kører musen henover skifter den til det andet, som er for lille, og når musen fjernes skifter den til det første, som nu også er for lille! Håber du (eller en anden) kan hjælpe!

Jeg fik det til at virke! Imagelisten skulle bare laves om til samme størrelse som image1! Du får pointsne nu Kaper :)

Ah ok, smart - og tak