procedure Register; begin RegisterComponents('RunSoft',[TZnHideForm]); end;
{********** TZnHideForm **********} constructor TZnHideForm.Create(AOwner: TComponent); begin inherited Create(AOwner); FMainForm := FindMainForm; if not Assigned(FMainForm) then raise Exception.Create('未找到主窗体');
FIdle := 0; FEdgeSpace := 3; FValidSpace := 10;
FDockPos := dpNone; FAutoDock := False;
if not (csDesigning in ComponentState) then begin FFormRect := FMainForm.BoundsRect; FFormProc := FMainForm.WindowProc; FMainForm.WindowProc := CaptureMsg; end; end;
destructor TZnHideForm.Destroy; begin if Assigned(FMainForm) and Assigned(FFormProc) then FMainForm.WindowProc := FFormProc;
SetAutoDock(False); inherited Destroy; end;
//Desc: 搜索主窗体 function TZnHideForm.FindMainForm: TForm; var nComponent: TComponent; begin Result := nil; nComponent := Self.Owner;
while Assigned(nComponent) do begin if (nComponent is TForm) then begin Result := nComponent as TForm; Break; end; nComponent := nComponent.GetParentComponent; end; end;
//Desc: 开启/关闭Dock procedure TZnHideForm.SetAutoDock(const nValue: boolean); begin FAutoDock := nValue;
if not (csDesigning in ComponentState) then if FAutoDock then begin FWnd := Classes.AllocateHWnd(WndProc); SetTimer(FWnd, 1, 558, nil); end else
if FWnd > 0 then begin KillTimer(FWnd, 1); Classes.DeallocateHWnd(FWnd); FWnd := 0; FIdle := 0; FDockPos := dpNone; end; end;
//Desc: 计数器在查数,^_^ procedure TZnHideForm.WndProc(var nMsg: TMessage); begin with nMsg do begin if Msg = WM_TIMER then Inc(FIdle) else Result := DefWindowProc(FWnd, Msg, wParam, lParam); end; end;
//Name: DockFormToEdge //Parm: nRect,窗体当前所在区域 //Desc: 依据nRect判断窗口是否需要Dock到边沿 procedure TZnHideForm.DockFormToEdge(const nRect: PRect); begin if (nRect.Top < FValidSpace) and (nRect.Top <= FFormRect.Top) then //Top begin nRect.Bottom := nRect.Bottom - nRect.Top; nRect.Top := 0; end else
if (nRect.Left < FValidSpace) and (nRect.Left <= FFormRect.Left) then //Left begin nRect.Right := nRect.Right - nRect.Left; nRect.Left := 0; end else
if (Screen.Width - nRect.Right < FValidSpace) and (nRect.Left >= FFormRect.Left) then //Right begin nRect.Left := Screen.Width - (nRect.Right - nRect.Left); nRect.Right := Screen.Width; end;
if nRect.Top = 0 then FDockPos := dpTop else if nRect.Left = 0 then FDockPos := dpLeft else if nRect.Right = Screen.Width then FDockPos := dpRight else FDockPos := dpNone;
FFormRect := nRect^; //Save MainForm Rects if (FDockPos <> dpNone) and Assigned(FDockEvent) then FDockEvent(FDockPos); end;
//Desc: 判断鼠标是否离开主窗体 function TZnHideForm.IsMouseLeave: boolean; var nPt: TPoint; begin GetCursorPos(nPt); if PtInRect(FFormRect, nPt) then Result := False else Result := True; end;
procedure TZnHideForm.SetFormHide; begin if IsMouseLeave then begin FIsHide := True; if Assigned(FHideEvent) then begin FHideEvent(FDockPos); Exit; end;
if FDockPos = dpTop then FMainForm.Top := -FMainForm.Height + FEdgeSpace else if FDockPos = dpLeft then FMainForm.Left := -FMainForm.Width + FEdgeSpace else if FDockPos = dpRight then FMainForm.Left := Screen.Width - FEdgeSpace; end; end;
procedure TZnHideForm.SetFormShow; begin FIsHide := False; if Assigned(FShowEvent) then begin FShowEvent(FDockPos); Exit; end;
if FDockPos = dpTop then FMainForm.Top := 0 else if FDockPos = dpLeft then FMainForm.Left := 0 else if FDockPos = dpRight then FMainForm.Left := Screen.Width - FMainForm.Width; end;
procedure TZnHideForm.SetEdgeSpace(const nSpace: integer); begin if (nSpace > 0) and (nSpace < 51) then FEdgeSpace := nSpace else raise Exception.Create('请填写1-50以内的数字'); end;
procedure TZnHideForm.SetValidSpace(const nSpace: integer); begin if (nSpace > 4) and (nSpace < 51) then FValidSpace := nSpace else raise Exception.Create('请填写5-50以内的数字'); end;
procedure TZnHideForm.CaptureMsg(var Message: TMessage); begin if Assigned(FFormProc) then FFormProc(Message);
if FAutoDock then case Message.Msg of CM_MOUSEENTER : if FIsHide then SetFormShow; CM_MOUSELEAVE : if FDockPos <> dpNone then SetFormHide; WM_MOVING : DockFormToEdge(PRect(Message.lParam)); end; end;
