Form dockt on Screen

**barese**

Hallo Coders !

Ich benutze diesen Code um meine Form an den Screen zu docken.
Funzt auch super auf jeder Auflösung, doch möchte ich jetzt die Procedur mit einem Button aktivieren und deaktivieren können und weiss nicht wie..
...oder geht denn das überhaupt.?

Hilfe Leute...

markieren

Delphi-Quellcode:

			private

    { Private-Deklarationen }

    procedure OnMove(var aMsg:TWMMove);message WM_MOVE;

markieren

Delphi-Quellcode:

			procedure TForm1.OnMove(var aMsg:TWMMove);

begin if Form1.Left < 20 then Form1.Left:=0;

   if Form1.Top < 20 then Form1.Top:=0;

   if Form1.Left+Form1.Width > Screen.Width-20 then

   Form1.Left:=Screen.Width-Form1.Width;

   if Form1.Top+Form1.Height > Screen.Height-20 then

   Form1.Top:=Screen.Height-Form1.Height;

end;

Form dockt on Screen

Form dockt on Screen

Forumregeln