Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. cheesemunger

    Why does this not work????

    That is all of my code.... It is in the pastebin.
  2. cheesemunger

    Why does this not work????

    @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...
  3. cheesemunger

    Why does this not work????

    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 :=...
  4. cheesemunger

    Variable defining variable

    Ok I understand a little of your code but not much, I am moving object which have already been placed on a form.. how do i do this?
  5. cheesemunger

    Variable defining variable

    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...
  6. cheesemunger

    Why does this not work?

    Thank You whosrdaddy, your way worked. Next time I have a problem you will be the first person I will ask.
  7. cheesemunger

    Why does this not work?

    object Form1: TForm1 Left = 0 Top = 0 Width = 391 Height = 270 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13...
  8. cheesemunger

    Why does this not work?

    /whosrdaddy : I have now but it still does not move:( /towerbase : No, I am using the arrow keys on the keyboard
  9. cheesemunger

    Why does this not work?

    No, This is the Whole code..... I have tried using the debugger but it does not help? Cheesemunger
  10. cheesemunger

    Why does this not work?

    The program compiles but the tank image will not move. Thanks in advance, cheesemunger
  11. cheesemunger

    Why does this not work?

    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...

Part and Inventory Search

Back
Top