Form mitte mit maus Focussieren

[lbccaleb]

es müsste eigentlich mit dem hier gehen, das hab ich on the fly geschrieben also event noch nen bissel rummbasteln

Delphi-Quellcode:

uses
  windows;
var
  x, y: integer;        
        x := GetSystemMetrics(SM_CXSCREEN);
        y := GetSystemMetrics(SM_CYSCREEN);
        Mouse.CursorPos := Point((x div 2),(y div 2));

mfg