CPU-Auslastung

[Stanlay Hanks]

Hi! Also ich mach das immer so, mit dem Andocken.

Zuerst unter protected (musst du irgendwo über oder unter private und public schreiben) ne Message deklarieren:

procedure WMMove(var message: Tmessage);message WM_Move; // Dann diesen Quelltext einfügen

und dann noch folgende Prozedur dazu schreiben:

Delphi-Quellcode:

procedure TForm1.WMMove(var message: Tmessage);
begin
 IF (Form1.Left > 0) AND (Form1.Left < 10) THEN
  Form1.Left := 0;
 IF (Form1.Top  > 0) AND (Form1.Top  < 10) THEN
  Form1.Top  := 0;
 IF (Form1.Left < Screen.Width - Form1.Width) AND
    (Form1.Left > Screen.Width - Form1.Width -10) THEN
  Form1.Left := Screen.Width - Form1.Width;
 IF (Form1.Top  < Screen.Height - Form1.Height) AND
    (Form1.Top  > Screen.Height - Form1.Height - 30) THEN
  Form1.Top  := Screen.Height - Form1.Height -30;
end;

Das mit dem -30 bei Top hab ich gemacht, weil das ding sonst unter der Taskleiste verschwindet.

Man liest sich, Stanlay