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 createdir 建立文件夹路径

postmessage和sendmessage的区别

maskedit中掩码的含义及使用

Delphi控制面板应用大全

Delphi数据库实现从最后一条记录向上查询至首记录

Delphi 在tmemo中查找文本

Delphi控制程序在任务栏显示与隐藏

Delphi控件安装与删除

Delphi 监控其它进程

Delphi如何计算一个文件目录的大小

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

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