CPU-Auslastung

[Alexander]

Versuch mal so:

Delphi-Quellcode:

if (Form1.Left < 0) then
 Form1.Left := 0;

if ((Form1.Left + Form1.Width) > Screen.Width) then
 form1.Left := Screen.Width - Form1.Width;

if (form1.Top < 0) then
 Form1.Top := 0;

if ((Form1.Top + Form1.Height) > Screen.Height) then
 form1.Top := Screen.Height - Form1.Height;

Muss natürlich auch ins WM_Move. Ist allerdings nicht getestet...