Image5 wird als undefiniert bezeichnet obwohl definiert!

[newmusicslamer]

Hallo!

Ich bins schon wieder in meinem Programm zeigt er an Image5 sei undefiniert, obwohl es eindeutig als TImage definiert wurde!
Hier der Quellcode:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Gauges, MPlayer, XPMan;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image4: TImage;
    Gauge1: TGauge;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Image5: TImage;
    XPManifest1: TXPManifest;
    Gauge2: TGauge;
    Label2: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  p: TPoint ;
  Form1: TForm1;
  backz, haus, level: Integer ;


implementation

{$R *.dfm}

procedure TApplication ;
begin
repeat
 image5.left := image5.left +10 ;
 sleep(3000) ;
 image5.left := image5.left +10 ;
 sleep(3000) ;
 image5.left := image5.left +10 ;
 sleep(3000) ;
 image5.left := image5.left -10 ;
 sleep(3000) ;
 image5.left := image5.left -10 ;
 sleep(3000) ;
 image5.left := image5.left -10 ;
 sleep(3000) ;
until backz = 1 ;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word;
  Shift: TShiftState);
begin
  if key = Ord('W') then Image1.Top := Image1.Top - 10 ;
  if key = Ord('S') then Image1.Top := Image1.Top + 10 ;
  if key = Ord('A') then Image1.Left := Image1.Left - 10 ;
  if key = Ord('D') then Image1.Left := Image1.Left + 10 ;
  if image1.Left = 14 then
  begin
    image1.Left := Image1.Left + 820 ;
    backz :=  backz + 1 ;
    haus := haus + 1 ;
    case backz of
         1 : image2.Picture.LoadFromFile('.\data\back2.bmp');
         2 : image2.Picture.LoadFromFile('.\data\back3.bmp');

    end;
if (image1.Left = image5.Left) and (image1.Top = image5.Top) then gauge1.Progress :=
gauge1.Progress -10 ;
if gauge2.Progress = 100 then
//begin
//level := level +1 ;
//gauge2.Progress := 0 ;
//label2.Caption := 'Level' + level ;
//end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('.\data\jo.bmp') ;
image2.Picture.LoadFromFile('.\data\back.bmp') ;
image4.Picture.LoadFromFile('.\data\shot.bmp');
image4.Visible := false ;
gauge1.Progress := 100 ;
image5.Picture.LoadFromFile('.\data\monster.bmp');
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
 image4.Visible := true ;
 p := Mouse.CursorPos ;
 image4.left := ScreenToClient(p).X;
 image4.top := ScreenToClient(p).Y ;
end;

procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 image5.Visible := false ;
 gauge2.Progress := gauge2.Progress +10 ;
 image4.Visible := true ;
 p := Mouse.CursorPos ;
 image4.left := ScreenToClient(p).X;
 image4.top := ScreenToClient(p).Y ;
end;


end.

So nun zeigt er mir im ersten Prozess (TApplication) an image5 sei undefiniert bzw. unbekannt.

Ich hoffe ihr könnt mir helfen!

[Keldorn]

Hallo

mir ist nicht ganz klar, warum du die Proc TApplication nennst. Verwendet wird sie aber auch nirgends?

sie ist aber keine Methode der Form und deswegen kennt sie das Image nicht.
Entweder

Delphi-Quellcode:

Form1.image5....

oder du nimmst die Proc mit in die Form als private/public-Methode mit auf

Gruß Frank

[newmusicslamer]

Danke das hat funkioniert!
Ich bin eben einfach nur ein blutiger Anfänger!