OnMouse-Over/Out og GIF-filer i delphi??

procedure TForm1.stMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
st.Font.Color:=clblue;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
st.Font.Color:=clblack;
end;

det var et svar

animeret gif:

i private declarations indsættes denne kode:

ImageListIndex: integer;

indsæt Timagelist på din form hvis du har alle billederne enkeltvis, indsæt dem i Timagelist
indsæt en timer på din form

indsæt denne kode i din FormCreate:
ImageListIndex := 0;
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,0,true);

indsæt denne kode i TimerTimer:
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,ImageListIndex,true);

Inc(ImageListIndex);

if ImageListIndex > ImageList1.Count -1 then
  ImageListIndex := 0;

Indsæt denne kode i din formOnShow:

Timer1.Enabled := not Timer1.Enabled;

if Timer1.Enabled then
  Button1.Caption := 'Stop'
else
  Button1.Caption := 'Start';

Hvis du vil gøre det på denne lette måde skal du have fat i et component der kan håndtere animerede Gif.... Kan ikke huske hvor men det var vist en med navnet Melander som har lavet et component til det.

Anders Melander - hans website, www.melander.dk, har været nede rigtig rigtig længe :-(

Men TGIFImage v.2.2 findes også på torry.net: http://www.torry.net/quicksearch.php?String=Full TGraphic implementation of the GIF graphics f&Title=No&Exact=Yes

Problemer med mellemrummene, prøv http://www.torry.net/quicksearch.php?String=Full%20TGraphic%20implementation%20of%20the%20GIF%20graphics%20f&Title=No&Exact=Yes