Fehlender Parametertyp!? Und weiteres Problem...

[Quecki]

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button2: TButton;
    Image2: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    Panel1: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image4: TImage;
    Image5: TImage;
    Panel2: TPanel;
    Image6: TImage;
    Button6: TButton;
    Button7: TButton;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Abfrage(self); pascal;

...

procedure Abfrage(self); pascal;
   begin
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width -10 Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width -10 Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;


  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width -10 Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width -10 Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width -10 Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image4.Left Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image4.Top Then
  If Form2.Image2.Left < Form2.Image4.Left + Form2.Image4.Width -10 Then
  If Form2.Image2.Top < Form2.Image4.Top + Form2.Image4.Height - 10 Then
    begin
      Form2.Button4.Enabled:=False;
      Form2.Button5.Enabled:=False;
    end
    else
      begin
      Form2.Button4.Enabled:=True;
      Form2.Button5.Enabled:=True;
      end;


  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top -10 Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top -10 Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top -10 Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top -10 Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;

  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left -10 Then
  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top -10 Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height Then
    begin
      Form2.Button2.Enabled:=False;
      Form2.Button3.Enabled:=False;
    end
    else
      begin
      Form2.Button2.Enabled:=True;
      Form2.Button3.Enabled:=True;
      end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image3.Top Then
  If Form2.Image2.Top < Form2.Image3.Top + Form2.Image3.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image3.Left Then
  If Form2.Image2.Left < Form2.Image3.Left + Form2.Image3.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image5.Top Then
  If Form2.Image2.Top < Form2.Image5.Top + Form2.Image5.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image5.Left Then
  If Form2.Image2.Left < Form2.Image5.Left + Form2.Image5.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Image6.Top Then
  If Form2.Image2.Top < Form2.Image6.Top + Form2.Image6.Height Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Image6.Left Then
  If Form2.Image2.Left < Form2.Image6.Left + Form2.Image6.Width Then
    begin
      Form2.Visible:=False;
      Form3.Visible:=True;
      Form2.Image2.Top:=432;
      Form2.Image2.Left:=37;
    end;


  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel1.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel1.Left Then
  If Form2.Image2.Top < Form2.Panel1.Top + Form2.Panel1.Height Then
  If Form2.Image2.Left < Form2.Panel1.Left + Form2.Panel1.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel2.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel2.Left Then
  If Form2.Image2.Top < Form2.Panel2.Top + Form2.Panel2.Height Then
  If Form2.Image2.Left < Form2.Panel2.Left + Form2.Panel2.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel3.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel3.Left Then
  If Form2.Image2.Top < Form2.Panel3.Top + Form2.Panel3.Height Then
  If Form2.Image2.Left < Form2.Panel3.Left + Form2.Panel3.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel4.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel4.Left Then
  If Form2.Image2.Top < Form2.Panel4.Top + Form2.Panel4.Height Then
  If Form2.Image2.Left < Form2.Panel4.Left + Form2.Panel4.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

  If Form2.Image2.Top + Form2.Image2.Height > Form2.Panel5.Top Then
  If Form2.Image2.Left + Form2.Image2.Width > Form2.Panel5.Left Then
  If Form2.Image2.Top < Form2.Panel5.Top + Form2.Panel5.Height Then
  If Form2.Image2.Left < Form2.Panel5.Left + Form2.Panel5.Width Then
    Form2.Timer1.Enabled:=False
  Else
    Form2.Timer1.Enabled:=True;

   end;

[edit=SirThornberry]Delphi-Tags ergänzt - Mfg, SirThornberry[/edit]