Forum: Object-Pascal / Delphi-Language
Delphi
by Tanko14,
14. Mär 2009
OnTopic
Meinst du sowas:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x-panel1.width div 2>form1.left)
and (x+panel1.width div 2<form1.clientwidth then
panel1.left:=x-(panel1.width div 2); //Position des Mauszeiger im Fenster->Mitte des Torwarts
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tanko14,
14. Mär 2009
Hallo liebe Delphi-Praxis Community,
ich habe seit einem Semester Informatik und mir gefällt dieses Fach auch sehr,
doch nun ist es geschehen: Ich kann 2 Probleme nicht lösen !
Die SuFu konnte mir meine Fragen auch leider nicht beantworten.
Zum Programm:
Ein Ball(shape) bewegt sich refklektierend in einem Fenster,
unten befindet sich ein Torwart(panel), der den Ball auch reflektieren...