Zitat von
Pascal:
Hallo,
Wenn ich dich richtig verstehe, willst du dein Image ändern, wenn der Anwender den Mauszeiger nach oben bewegt. Außerdem soll das Image (denke ich) verschoben werden.
Merke dir doch die alte y-Koordinate des Images und berechne die Differenz von der y_Koordinate des Images und der y-Koordinate des Mauszeigers.
Negativ = nach unten verschoben
Positiv = nach oben verschoben
Gruß Pascal
Habs mal Probiert und es klappt nicht.
Delphi-Quellcode:
var i:integer;
begin
Image1.Top := Y;
i := Image1.Top;
if Image1.Top = i + Image1.Height then
// Hoch
....
end;