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...
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure OnMove(var aMsg:TWMMove);message WM_MOVE;
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;