|
ShellListView控件显示的文件如何拖拽它
设置ShellListView 的DrogModel属性为dmAutomobile才可拖动 然后在这个事件上写代码: procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X, Y: Integer); Var nUserSelect: TTreeNode; gsMoveFileName,gsMoveFloder:string; Begin If Sender Is TShellListView Then Begin nUserSelect := ShellTreeView1.GetNodeAt(x, y); If nUserSelect <> Nil Then Begin //來源 gsMoveFileName := ShellListView1.Selectedfolder.PathName; //移动目录 gsMoveFloder := ShellTreeView1.Folders[nUserSelect.Index].PathName; Edit1.text:= '档案 --->' + gsMoveFileName + ' 到 ===>' + gsMoveFloder + '\'; End; End; End; |
|
|
|
ShellListView控件显示的文件如何拖拽它
procedure WithDropFiles(var Msg: TMessage); message WM_DROPFILES; 然后应该就是文件的copy了~~ |
|
[求助]判断已经联上互联网的最好方法?
function IsInternet: Boolean; begin if InternetCheckConnection('www.microsoft.com', 1, 0) then Result := True else Result := False; end; |
|
[求助]想加入一个编程的学习小组!!
貌似有一个 ̄ ̄ |
|
[原创]猪头三Winapiex DISK接口分析
学习,牛人啊~~~ |
|
[学习]邪恶的 ENTER 指令
进来学习一下。。。 |
|
[原创]啥时能拿到书呢?
等待 ̄ ̄ |
|
[原创]+[讨论]Delphi程序Anti-XXX的一个小技巧
偶不是大牛。。。,Anti也没有好的思路~~ |
|
[分享]加壳软件TTProtect Demo 1.02 (7.14)更新
已经调整过价格了。。。 购买TTProtect 注册类型 版本 免费升级时间 技术支持 价格 购买 个人用户 标准版 12个月 电子邮件 / 终生服务 500¥ 个人用户 专业版 12个月 电子邮件 / 终生服务 800¥ 企业用户 标准版 12个月 电子邮件 / 终生服务 2700¥ 企业用户 专业版 12个月 电子邮件 / 终生服务 3700¥ 购买升级服务 注册类型 版本 升级时间 价格 购买 个人用户 标准版 12个月 300¥ 个人用户 专业版 12个月 300¥ 企业用户 标准版 12个月 700¥ 企业用户 专业版 12个月 700¥ |
|
[原创]+[讨论]Delphi程序Anti-XXX的一个小技巧
Anti在大牛面前没任何作用~~ |
|
|
|
[求助]很高兴拿了精英奖,可惜发不了论坛短消息
用论坛发邮件给北极星。。。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值