Form mitte mit maus Focussieren

[angos]

Hallo Cran7,

Zitat von cran7:

Ich ma wieder mit meinen ideen xD
diesmal:

gitbs ne möglichkeit das die Maus per buttondruck in die mitte der Form geht?

Mouse.CursorPos := Point(Form1.Left + Form1.Width div 2, Form1.Top + Form1.Height div 2);

Zitat:

oder
dass die Form der maus folgt, sobald die am rand der Form is? also das die Form dann "mitgezogen" wird?

hierfür kann man zB einen Timer auf die Form packen, mit folgendem onTimer-Ereignis

Delphi-Quellcode:

  if Mouse.CursorPos.X < Form1.Left then
    Form1.Left := Mouse.CursorPos.X
  else if Mouse.CursorPos.X > (Form1.Left + Form1.Width) then
    Form1.Left := Mouse.CursorPos.X -  Form1.Width;

  if Mouse.CursorPos.Y < Form1.Top then
    Form1.Top := Mouse.CursorPos.Y
  else if Mouse.CursorPos.Y > (Form1.Top + Form1.Height) then
    Form1.Top := Mouse.CursorPos.Y -  Form1.Height;

Grüße