jeg er ved at lave et lille spil hvor der er en figur der skal gå der hen hvor man klikker med muse, men som jeg har lavet det nu stiller den sig bare direkte derhen, hvordan laver man det så den lige så stille bevæger sig hen imod der hvor man klikkede??
Du kan bruge en timer. hver gang Ontimer eventen "trigger" kan du finde din figurs placering i forhold til musens og rykke figuren, hvis nødvendigt.
Jeg har forsøgt at lave det med et lille billede her.
var
Form1: TForm1;
x,y:integer; //globale variabler
implementation
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
begin
x:=mouse.CursorPos.X-form1.Left;
y:=mouse.CursorPos.Y-(form1.Top+25);
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (x = image1.Left) and (y=image1.Top) then
begin
timer1.Enabled:=false;
exit;
end;
if x > image1.Left then
begin
image1.Left:= image1.Left+1;
end;
if x < image1.Left then
begin
image1.Left:= image1.Left-1;
end;
if y < image1.Top then
begin
image1.Top:=image1.Top-1;
end;
if y > image1.Top then
begin
image1.Top:=image1.Top+1;
end;
end;
Hvis du har problemer med det så bare skriv
Mvh
Søren
[Redigeret d. 06/09-02 14:10:58 af Søren Jespersen]