ok, I have this code. It used to work but it now doesn't. After i put in the if number = (1)or(2)or(3)or(4)or(5)or(6)or(7) then
begin
imagename := 'Bullet' + IntToStr(number);
Bullet := FindComponent( imageName ) as TImage;
end;
if number = 8 then
begin
imagename :=...
OK, I have got a form with 8 images named image1,image2,image3.......,image8
I want to have a piece of code in a timer procedure,running every 0.1 of a second, that move each of the images to the right in turn.
Could you have this code?
var
number:integer...
Ok i have done some code but it does not work..... why?
Here is the code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Tank: TImage;
procedure FormKeyDown(Sender: TObject; var...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.