单问题!

Question

怎样能用鼠标右键拖动按钮,来拖动窗体的位值,就像拖动窗体的标题栏一样!各位请指教!

Answer 1

好像是拦截hittest事件，或者setcapture然后sendmessage，去搜搜看。

Answer 2

procedure TToolWindow.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OldX := X;
  OldY := Y;
end;procedure TToolWindow.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  IF ssRight in Shift Then
  Begin
    Left := Left + (X - OldX);
    Top := Top + (Y - OldY);
  End;
end;