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 为 service application 添加描述文本的方法

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi实现文件防删除

Delphi 苹果系统弹出链接

Delphi中操作olevariant、variant和stream

Delphi 判断上午还是下午

Delphi实例之一个较复杂的记事本的实现

Delphi copy 从字符串中复制指定范围中的字符

Delphi 调用百度地图api

Delphi 整理内存

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

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