1:
2:
3:
4:
5:
6:

If ssRight in Shift then begin

Image1.Left:=Image1.Left +50;
If (Image1.Top = Image2.Top)and ((Image1.Left+Image1.Width)>Image2.left)or(Image1.Top-50 = Image2.Top)and ((Image1.Left+Image1.Width)>Image2.left)or(Image1.Top-100 = Image2.Top) and ((Image1.Left+Image1.Width)>Image2.left) then begin
   Image1.Left:=Image2.left - Image1.Width;
   end;  end;					

1:
2:
3:
4:
5:

var
  Blub: Array[0..19] of TImage;
...
  Blub[0] := TImage.Create(Self);
  Blub[0].Parent := Self;					

1:
2:
3:
4:
5:
6:

var
  Blub: Array of TImage;
...
  SetLength(Blub, Length(Blub) + 1);
  Blub[High(Blub)] := TImage.Create(Self);
  Blub[High(Blub)].Parent := Self;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

if ssRight in Shift then 
begin
image1.left:=Image1.Left +50;
If (Image1.Top = Image2.Top)and ((Image1.Left+Image1.Width)>Image2.left)or(Image1.Top-50 = Image2.Top)and ((Image1.Left+Image1.Width)>Image2.left)or(Image1.Top-100 = Image2.Top) and ((Image1.Left+Image1.Width)>Image2.left) then begin
   Image1.Left:=Image2.left - Image1.Width;
   end;  end;

if ssLeft in Shift then 
begin
image1.left:=Image1.Left -50;
If (Image1.Top = Image2.Top)and (Image1.Left<(Image2.left+Image2.Width))or(Image1.Top-50 = Image2.Top)and (Image1.Left<(Image2.left+Image2.Width))or(Image1.Top-100 = Image2.Top) and (Image1.Left<(Image2.left+Image2.Width)) then begin
//If (Image1.Top = Image2.Top) and ((Image1.Left+Image1.Width)<=Image2.left) then
   Image1.Left:=Image2.left + Image2.Width;
   end; end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    fImages: array [0..2] of TImage;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function InRect(Rect1, Rect2: TRect): Boolean;
begin
  Result := False;
  // Diese Methode arbeitet nach dem ausschlussverfahren.
  // Es prüft also ob die Linke ecke des einen Recht außerhalb des anderen ligt.
  // Es kann nämlich auch sein, dass sich die Recteckte überlagern obwohl
  // keiner der Punkt in einem andern liegt. Siehe "bild".
  //     |--|
  //  ----------
  //  |        |
  //  ----------
  //     |--|
  if Rect1.Right < Rect2.Left then
    EXIT;

  if Rect1.Left > Rect2.Right then
    EXIT;

  if Rect1.Bottom < Rect2.Top then
    EXIT;

  if Rect1.Top > Rect2.Bottom then
    EXIT;

  // Okay. Wenn wir hier sind dann sind sie Kolliediert.
  Result := True;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  // Bilder erstellen
  fImages[0] := TImage.Create(Self);
  fImages[0].Parent := Self;
  fImages[0].Picture.LoadFromFile('C:\WINNT\kaffeetasse.bmp');
  fImages[0].AutoSize := True;
  fImages[0].Top := 5;
  fImages[0].Left := 5;

  fImages[1] := TImage.Create(Self);
  fImages[1].Parent := Self;
  fImages[1].Picture.LoadFromFile('C:\WINNT\kaffeetasse.bmp');
  fImages[1].AutoSize := True;
  fImages[1].Top := 200;
  fImages[1].Left := 200;

  fImages[2] := TImage.Create(Self);
  fImages[2].Parent := Self;
  fImages[2].Picture.LoadFromFile('C:\WINNT\kaffeetasse.bmp');
  fImages[2].AutoSize := True;
  fImages[2].Top := 395;
  fImages[2].Left := 395;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Idx: Integer;
begin
  // Bilder wieder frei geben
  for Idx := Low(fImages) to High(fImages)
   do fImages[Idx].Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Idx, MoveIdx : Integer;
begin
  // Bild bewegen
  MoveIdx := 0;
  fImages[MoveIdx].Top  := fImages[MoveIdx].Top + 50;
  fImages[MoveIdx].Left := fImages[MoveIdx].Left + 50;

  // Bilder auf kollision prüfen
  for Idx := Low(fImages) to High(fImages) do begin
    // Haben wir unser verschobenes
    if Idx <> MoveIdx then begin
      // auf Kollision abprüfen
      if InRect(fImages[Idx].BoundsRect, fImages[MoveIdx].BoundsRect) then
        ShowMessage('Wahhhhh');
    end;
  end;
end;


end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
var
  Idx: Integer;
begin
  // Bilder erstellen
  for Idx := Low(fImages) to High(fImages) do begin
    fImages[Idx] := TImage.Create(Self);
    fImages[Idx].Parent := Self;
    fImages[Idx].Picture.LoadFromFile('C:\WINNT\kaffeetasse.bmp');
    fImages[Idx].AutoSize := True;
    fImages[Idx].Top := 5 + 195 * Idx;
    fImages[Idx].Left := 5 + 195 * Idx;
  end;
end;