Zitat von
dominikkv:
wäre es nicht besser statt dem timer einfach onMouseLeave der Form zu benutzen?
kp ob das funktioniert^^
hab ich auch schon probiert, aber geht net, geht dann einfach raus
E: das geht doch, ausser nach oben, da kann ma mit maus raus...
aber damits geht muss ma den quelcode bisschen verändern, das darf dann net ganz beim verlassn sein
Delphi-Quellcode:
if Mouse.CursorPos.X < Form1.Left + 4 then
Form1.Left := Mouse.CursorPos.X - 4
else if Mouse.CursorPos.X > (Form1.Left + Form1.Width) - 5 then
Form1.Left := Mouse.CursorPos.X - Form1.Width + 5;
if Mouse.CursorPos.Y < Form1.Top + 4 then
Form1.Top := Mouse.CursorPos.Y - 4
else if Mouse.CursorPos.Y > (Form1.Top + Form1.Height) - 8 then
Form1.Top := Mouse.CursorPos.Y - Form1.Height + 8;