Images nutzen eine mouseover-proz.! Geht das?

[DataCool]

Hi,

wo ist das Problem ?

Warum wollt Ihr erst eine neue Klasse erstellen ?

Ich würde das so machen :

Code:

  // innnerhalb der Mainform folgende Procedure Deklarieren(nicht in Private)
  procedure MouseMoveOnImages(Sender: TObject; Shift: TShiftState; X, Y: Integer);

und bei erzeugen der Images folgendes :

Code:

 for i := 0 to 20 do
   begin
     Image[i] := TImage.Create(self);
     Image[i].Parent := parent;
     Image[i].onmousemove := MouseMoveOnImages;
   end;

die Procedure könnte dann so aussehen :

Code:

procedure MouseMoveOnImages(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var aktImg : TImage;
begin
  if Sender is not TImage then exit;
  aktImage := TImage(SEnder);
  / so und jetzt was Du mit dem Image machen willst
end;

Oder habe ich euch falsch verstanden ?

Gruß Data