Tach!
Hatte auch schon solch ein Problem! Habs dann so gelöst:
1. Hatte eine ImageList in der die Bilder für den Button waren (bei einem Button also 3 Bilder)
2. Hatte ein Image
3. Hatte ein Label über das Image gepackt, das genauso groß und transparent war.
Nun musst du nur noch schauen wo du die beim Label reinpacken musst! Ich glaube das sah wie folgt aus:
OnMouseDown - Bild anzeigen für OnClick
OnMouseEnter - Bild anzeigen für OnMove
OnMouseLeave - Standard-Bild anzeigen
OnMouseUp - Bild anzeigen für OnMove
Das Bild lädst du z.B. halt dann wie folgt:
Code:
proceduer TForm1.Labe11MouseDown(Sender: TObject);
begin
ImageList1.GetBitmap(2, Image1.Picture.Bitmap);
Image1.Repaint;
end;
Ich glaube so sollte das ganze gehen
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)