Image toggeln lassen bei OnClick

[Alex_ITA01]

Hallo erstmal,
ich habe folgendes Problem:
Ich möchte beim Click auf ein Image, das "Picture" toggeln lassen.Also immer hin und her springen.
Das mache ich über die Tag-Eigenschaft damit ich keine zusätzliche Variable brauche.
Im FormCreate wird für beide Images das erste Picture aus der ImageList geladen aber im OnClick passiert nix...
Habt ihr eine Idee? Invalidate,Refresh und Repaint habe ich schon versucht.

MFG Alex

Delphi-Quellcode:

  if Image1.Tag = 0 then
  begin
    Image1.Tag := 1;
    ImageList1.GetBitmap(1,Image1.Picture.Bitmap);
  end
  else
  begin
    Image1.Tag := 0;
    ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
  end;

[shmia]

Bei mir tut das. :coder2:
Ich habe aber noch etwas verändert:

Delphi-Quellcode:

   if Image1.Tag >= ImageList1.Count-1 then
      Image1.Tag := 0
   else
      Image1.Tag := Image1.Tag+1;
   Image1.Picture := nil;  // sonst gibts Misch-Masch
   ImageList1.GetBitmap(Image1.Tag,Image1.Picture.Bitmap);

[Alex_ITA01]

ich habe auch in einem anderem Forum (www.delphi-forum.de) gelesen, das es bei manchen usern ging und bei manchen nicht.Das Problem ist einfach, das man Image1.Picture vorher auf Nil setzen muss dann geht es garantiert (habe es gestern Abend noch rausgefunden :-) )

Also danke nochmal...
MFg Alex