Hi,
dieser Timer läuft eigentlich normal nur wechselt er die Bilder nicht aus und das ist blöd.
Delphi-Quellcode:
procedure TForm2.Time_GalierTimer(Sender: TObject);
begin
if(i < 6) then
begin
Memo1.Lines[3]:='Titmer_galier on';
galier.GetBitmap(i,Char.Picture.Bitmap);
Memo1.Lines[4]:='galier_pic'+IntToStr(i);
i:=i+1;
end
else
Memo1.Lines[5]:='Titmer_galier off';
i:=0;
Time_Galier.Enabled:=false;
end;
end;
end.
es heißt aber auch immer das ein END zu viel wäre aber warum?