Images nutzen eine mouseover-proz.! Geht das?

[scp]

Du musst eine neue Klasse von TImage ableiten:

Delphi-Quellcode:

interface

// ...

type
  TMyImage = class(TImage)
  private
    procedure menuskinonmousenter(var msg : tmessage);  message cm_mouseenter;
  end;

// ...

implementation

// ...

procedure TMyImage.menuskinonmousenter(var msg : tmessage);
begin
  //Quellcode

  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   for i := 0 to 20 do
   begin
     Image[i] := TMyImage.Create(self);
     Image[i].Parent := parent; // Hier müsste eigentlich auch self stehen,
                                // Aber ich weis ja nicht wie der Rest deines Codes aussieht
   end;
end;