Huhu,
ich möchte gerne ein Objekt (zur Zeit ist es ein einfacher Button, später soll es ein Image werden) bewegen. Zuersteinmal geschieht dies nur in x-Richtung. Mehr brauche ich glaube ich nicht sagen, der Quelltext macht deutlich was ich möchte:
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift = [ssLeft] then
begin
if isright(x) then
Button1.Left:=Button1.Left+1
else
Button1.Left:=Button1.Left-1;
end;
end;
Delphi-Quellcode:
function isright (xvalue: integer): boolean;
begin
if (lastpx < xvalue) and (xvalue <> lastpx) then
result:=true
else
result:=false;
lastpx:=xvalue;
end;
Wenn ich jetzt auf das Panel klicke und die Maus bewege saust der Button nach links und verschwindet von der Form. Ich habe schon sehr viel ausprobiert, dies ist jetzt ein letzter Quelltext stand.
Wo ist der Fehler?