A-A+

Delphi中image移动代码

2017年02月27日 技术信息 暂无评论 阅读 409 次
  1. procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  
  2.   Shift: TShiftState; X, Y: Integer);  
  3. begin  
  4.   If Button = mbleft Then begin ReleaseCapture; SendMessage(Form1.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end;  
  5. end;  

上面这个代码插入到任何控件的MouseDown就可以让这个控件支持鼠标拖动窗体。

实际效果预览:http://www.280i.com/downloads/4140.html

打赏
标签:
艾克杨鹏

给我留言

Copyright © 我的280i 保留所有权利.   Theme  Ality 陕ICP备14000108号
电话:029-61858280 QQ:82774815

用户登录 ⁄ 注册

分享到: