Bild wechsel / tausch?

[Chris4712]

Hallo!

Ich hätte gerne dass sich ein Bild beim MousOver ändert.

Wie bekomme ich dies am besten hin?? Die Bilder sollten schon im Programm integriert sein (ImageList o.ä.).
Nicht dass einer die Bilder löscht, und nachher sieht das Programm sch..... aus.

Hab das mit TImage und ImageList auch schon halb hinbekommen. Geht aber nur wenn TImage noch kein Bild enthält.

Für Hilfe währe ich sehr dankbar!

Gruß

Christian

[Matze]

Die Bilder könntest du per Resourcedatei einbinden, da findest du ganz sicher was über die Suchfunktion.

Oder, wie du schon sagtest, über eine Imagelist, was vielleicht nicht ganz so elegant ist.
Zum OnMouseMove: Möchtest du das Bild ändern, sobald die Maus bewegt wird, also dann pro Pixel, den der Cursor weiterrückt? Oder nur einmal, sobald die Maus drüberfährt?

Du kannst das hier ja etwas umbauen (ungetestet, nur schnell zusammengetippt):

Delphi-Quellcode:

//OnMouseMove:

var
  bmp: TBitMap;
begin
  bmp := TBitMap.Create;
  try
    ImageList1.GetBitmap(1, bmp);
    Image1.Canvas.Draw(0, 0, bmp);
  finally
    FreeAndNil(bmp);
  end;
end;

[Chris4712]

Hallo Matthias!

Genau SO habe ich mir das vorgestellt.
Hab 1000 Dank!

Gruß

Christian