Form mitte mit maus Focussieren

[cran7]

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;