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 回车 选择下一个控件

Delphi 将整数转换为罗马数字

Delphi 拖动form上的图片，form一起动

Delphi中判断操作系统是否是windows7

Delphi中指针和地址切换的方法

Delphi 使用并行库中的ttask

Delphi在memorystream查找字符串

Delphi xe5 android应用程序获取电池信息

Delphi 10分钟10行代码开发app(Delphi 应用案例)

Delphi firedac压缩和修复ms access数据库

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

转载请注明出处：木庄网络博客 » delphi 拖动Form上的图片，Form一起动