
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 · 764 阅读 · 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 · 1360 阅读 · 0 评论