Wollte es jetzt so machen:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var schnittmenge, image1, image2: TRect;
begin
image1 := Rect(Image1.left,Image1.Top,
Image1.left+Image1.Width,Image1.Top+Image1.Height);
image2 := Rect(Image2.Left, Image2.Top,
Image2.Left+Image2.Width,Image2.Top+Image2.Height);
if intersectrect(Schnittmenge, image1, image2) then
begin
kollision;
timer2.Enabled:=false;
end;
end;
Fehlermeldung: [Error] Unit1.pas(131): Undeclared identifier: 'Width'
Hö? wie kann das sein?
Btw...gibts dazu ein einfaches!?!?! beispiel?
Hab beispielprogramm gefunden, aber ist mir zu hoch! Sorry!