13/11/11 05:34:05.14 .net
>>495 汚いソースで恥ずかしいけど、Del7のを参考にしてみた
uses DWMAPI;
FSnapBuffer: integer FScreenSnap: boolean; FFrameSize: integer;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
function GetWindowFrame(Handle: THandle): integer;
var R1, R2: TRect;
begin
result := 0; try
if Win32MajorVersion >= 6 then begin
DwmGetWindowAttribute(Handle, DWMWA_EXTENDED_FRAME_BOUNDS, @R2, SizeOf(TRect));
GetWindowRect(Handle, R1);
result := Abs(R2.Left - R1.Left);
end; except end; end;
procedure TForm.FormCreate(Sender: TObject);
begin
FSnapBuffer := 20; FScreenSnap := true; FFrameSize := GetWindowFrame(Handle);
end;
procedure TForm.WMWindowPosChanging(var Message: TWMWindowPosChanging);
procedure HandleEdge(var Edge: Integer; SnapToEdge: Integer; SnapDistance: Integer = 0);
begin if (Abs(Edge + SnapDistance - SnapToEdge) < FSnapBuffer) then Edge := SnapToEdge - SnapDistance; end;
var fx, fy, fwidth, fheight: integer;
begin
if FScreenSnap and ((Message.WindowPos^.X <> 0) or (Message.WindowPos^.Y <> 0)) then
with Message.WindowPos^, Monitor.WorkareaRect do begin
fx := x - FFrameSize; fy := y - FFrameSize; fwidth := Width + FFrameSize + FFrameSize; fheight := Height + FFrameSize + FFrameSize;
HandleEdge(fx, Left, Monitor.WorkareaRect.Left); HandleEdge(fy, Top, Monitor.WorkareaRect.Top);
HandleEdge(fx, Right, fWidth); HandleEdge(fy, Bottom, fHeight);
x := fx + FFrameSize; y := fy + FFrameSize;
end; inherited; end;