首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

用ReleaseCapture后不能响应MouseUp解决方案

2012-12-17 
用ReleaseCapture后不能响应MouseUpprocedure TForm1.FormMouseDown(Sender: TObject Button: TMouseButt

用ReleaseCapture后不能响应MouseUp
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('UP');
end;
各位帮忙看看要怎么响应MouseUp
[解决办法]
有那位大侠知道?
自己顶一下
[解决办法]
不应该这样用啊
都是先SetCapture
处理完了,再ReleaseCapture

热点排行