delphi 拖动Form上的图片,Form一起动


本文整理自网络,侵删。

 

 拖动Form上的图片,Form一起动

procedure TfrmServerInfo.Image1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: integer);
begin
inherited;
if (ssleft in Shift) then
begin
ReleaseCapture;
Perform(wm_syscommand, $F012, 0);
end;
end;

相关阅读 >>

Delphi xe 10.2.1 fmx平台 在图片上写字方法

Delphi整理六(数据与记录)

Delphi 在线程中运行窗体

Delphi xe7 取得进程占用内存的两个函数

Delphi 检测服务器地址是否有效

Delphi 圆角panel

Delphi图表控件tchart使用faq

Delphi 生成指定范围和个数的不重复的随机整数

Delphi 开发安卓时判断进入非活动

Delphi 字母大小写转换

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...