Ich habe es mal versucht aber bekomme es nicht richtig hin.
Delphi-Quellcode:
var
x, y : double;
begin
x := schlaeger_2.top - schlaeger_2.width;
y := schlaeger_2.left - schlaeger_2.height;
label4.caption := FloatToStr(x) + ' ' + FloatToStr(y);
if (ball.Left >= schlaeger_2.left) and (ball.Top >= schlaeger_2.top) then
begin
form2.show;
end;
Das war einfach nur zum testen, ob es funktioniert.