![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi Component
mypqx
这个作者很懒,什么都没留下…
展开
-
Image拖动窗体效果演示,点击图片弹出菜单
1. Image效果1:拖动图片移动窗体procedure TFormMain.Image_BackgroundMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin //=== 窗体跟着图片移动 效果 === if (Button = mbLeft)原创 2012-11-08 22:47:11 · 704 阅读 · 0 评论 -
Delphi TList使用
关键代码: TUserStatus = (usOnline, usOffline, usBusy, usLeave); POnlineUser = ^TOnlineUser; TOnlineUser = record Name: string; IP: string; Status: TUserStatus; end; //=== TL原创 2012-08-21 22:17:04 · 1268 阅读 · 0 评论