Bilder blinken lassen...

[Sharky]

Zitat von NeoDeluxe:

Moin.
Ich würede gerne wiessen, wie ich so machen kann, dass die Bilder blinken. ...

Hai NeoDeluxe.

Du brauchst:

a) 1 Timer
b) 1 Image
c) zwei Bilder in der Resource mit den Namen Bitmap_1 und Bitmap_2

Delphi-Quellcode:

var
   bild_nr: Integer;

{***************************************************}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
  Timer1.Enabled := False;
  bild_nr := 1;
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'BITMAP_' + IntToStr(bild_nr));
  Timer1.Enabled := True;
end;

{***************************************************}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  case Bild_nr of
   1: bild_nr := 2;
   2: bild_nr := 1;
  end;
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'BITMAP_' + IntToStr(bild_nr));
  Timer1.Enabled := True;
end;

Und schon "blinkt es"