@Saggaunt : I don't understand what you are saying:( I don't know much about programming:(
@Otto: I have added what you said but it still doesn't work
I am getting the error:
Project1 raised exception class EActionViolation with message 'access violation at address 004517A3 in module...
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.