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