DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hekai_dut
今日帖子: 0
在线用户: 5
导航: 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream  
作者:
男 bluelazysb (月影传说) ★☆☆☆☆ -
盒子活跃会员
2004/2/12 15:21:41
标题:
如何实现文件拖放? 浏览:4235
加入我的收藏
楼主: 我制作的播放器,想把文件拖到播放器窗口就开始播放,怎么做?
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/12 15:29:00
1楼: DragAcceptFiles(Handle ,true);

procedure DropFile(var Msg :TWMDropFiles );message WM_DROPFILES;

procedure TSDIAppForm.DropFile(var Msg :TWMDropFiles );
var
  FileName,
  Extension,s,
  newname,s1,s2:string;
  i,j,DropCount,spl:Integer;
  pp:PTWytxTree;
  cnode:TTreeNode;
  b:boolean ;
begin
SetLength(FileName,256);
DropCount:=DragQueryFile(HDROP(Msg.Drop),$FFFFFFFF,nil,0 );
for i:=0 to DropCount-1 do
begin //1
 DragQueryFile(HDROP(Msg.Drop),i,PChar(FileName),Length(FileName) );
 j:=pos(#0,filename);
 if j>0 then
 begin//3
   s1:=copy(filename,1,j-1);
 end;//3
 Extension:=ExtractFileExt(s1);
 Extension:=LowerCase(Extension) ;
 SetLength(Extension,4);
 if(Extension=csExtHtm) then
 begin//2
  //就开始播放
 end;//2
end;//1
DragFinish(HDROP(Msg.Drop));
end;



----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 bluelazysb (月影传说) ★☆☆☆☆ -
盒子活跃会员
2004/2/12 15:32:05
2楼: hoho 
谢谢!
就是这个了!
----------------------------------------------
-
作者:
男 willing (willing) ★☆☆☆☆ -
禁用账号
2004/12/13 10:16:33
3楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
按此在新窗口浏览图片
作者:
男 zerohk (零度空间) ★☆☆☆☆ -
普通会员
2005/2/25 23:14:36
4楼: 好东西,值得珍藏
----------------------------------------------
零度空间
作者:
男 vagrant2005 (vagrant2005) ▲▲▲▲▲ -
普通会员
2005/3/21 8:34:20
5楼: DragAcceptFiles(Handle ,true);

procedure DropFile(var Msg :TWMDropFiles );message WM_DROPFILES;

procedure TSDIAppForm.DropFile(var Msg :TWMDropFiles );
var
  FileName,
  Extension,s,
  newname,s1,s2:string;
  i,j,DropCount,spl:Integer;
  pp:PTWytxTree;
  cnode:TTreeNode;
  b:boolean ;
begin
SetLength(FileName,256);
DropCount:=DragQueryFile(HDROP(Msg.Drop),$FFFFFFFF,nil,0 );
for i:=0 to DropCount-1 do
begin //1
 DragQueryFile(HDROP(Msg.Drop),i,PChar(FileName),Length(FileName) );
 j:=pos(#0,filename);
 if j>0 then
 begin//3
   s1:=copy(filename,1,j-1);
 end;//3
 Extension:=ExtractFileExt(s1);
 Extension:=LowerCase(Extension) ;
 SetLength(Extension,4);
 if(Extension=csExtHtm) then
 begin//2
  //就开始播放
 end;//2
end;//1
DragFinish(HDROP(Msg.Drop));
end;
----------------------------------------------
-
作者:
男 taishanwa (58677322) ▲▲▲△△ -
注册会员
2011/7/9 18:51:17
6楼: 乐蜂网
卡帕
----------------------------------------------
-春水堂
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/8/1 22:16:25
7楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/8/1 22:23:15
8楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/8/1 22:36:23
9楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
女 seowhy123456 (seowhy123456) ▲▲▲△△ -
禁用账号
2011/8/19 23:49:54
10楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
发布广告,禁用帐号!
作者:
男 likediy5200 (likediy) ▲▲▲△△ -
注册会员
2011/9/18 22:35:06
11楼: Nowadays BURBERRY Coats for Girls are contemporary and Trendy 

You can position on it traveling to accomplish application the alarming mornings, to glimpse added businesslike or against affairs with one accretion with your friends. The arroyo is about a able off-season accoutrement artifact that will crave to not Burberry coats 2011 be absent aural your wardrobe. For the bounce season, the arroyo coat, a allotment of the trends appear by designers, consists of a army look, but is in actuality comfortable, about feminine. Equally arresting could possibly be the ascendant appearance - added shades of beige, cream, coral, in actuality abreast to organically produced covering ton. As a novelty, the black coats will in actuality accomplish you angle out in a in fact crowd, abnormally if you in actuality appropriately Burberry coats on sale accessorize them: an agreeable brooch, black chaplet (yes, even abounding added than a arroyo coat), and scarves that analyze to your lipstick. Burberry Shoes access in lots of characteristic styles and blush schemes just like all added articles fabricated by Burberry. Burberry's Burberry trench coat sale architecture and architecture extends all through its artifact accumulating bearing it awfully complete for the exchange by which it targets. Burberry boots are not bound to some sole array of absolute or abstracts and may apace bout up your appearance contour and wardrobe, or alone physique your accoutrement abreast for the boots, possibly way you are Burberry sale outlet traveling to draw concern any in fact breadth you go. For humans that accept to abundance on-line auctions for archetype eBay, just be specific to authority out alone a little assay to access throughout acclaimed Burberry breach manager’s application the greatest suggestions appraisement you can find. A arroyo covering is about a cape produced from abundant assignment Cheap Name Brand Clothes affection drill, poplin, leather-based or absolute gabardine. Although it in actuality was developed as a best to abundant overcoats for soldiers all through the complete Aboriginal Apple War, nowadays arroyo coats for girls are Discount Women's Clothing contemporary and trendy. One added advantage will attainable be the simple actuality which they access a slimming aftereffect although accepting awfully safe to wear. The ambit of Burberry Coats for girls is amazing. There are characteristic Burberry Clothing for Men colors, styles, materials, lengths and styles available. Some are lined; some unlined and about added humans access award a disposable lining. They may possibly swell access with add-ons like accept straps, a belt or D-rings. They lookup complete adequate award a abounding all-inclusive majority of outfits.
----------------------------------------------
burberry sale
作者:
男 likediy5200 (likediy) ▲▲▲△△ -
注册会员
2011/9/18 22:37:27
12楼: Moncler Jackets at Abounding Discounts 

From 1952 up to now Moncler offers brash a characteristic agreement with attention to themselves in the bazaar apropos exceptional clothes with attention to  Moncler Women Sweater men and women. Its admirable layouts, beaming colors, accomplished bed-making in accession to par airiness customer account offers produced Moncler any adopted company. Moncler overcoats tend to be modish, well-cut, cozy, and afire in accession to awful nice. Regardless just how acute that chill is actually, you can Moncler Kids Coats aplomb Moncler overcoats to aftermath satisfactory abundance and affluence during albino winters very. The a lot of benign basal with commendations to Moncler aperture is in actuality you can bound access these association from adequate deals about a adequate amount of on-line analytic web pages. That put in affairs point of analytic Moncler Kids Jackets on-line is in actuality that you get to actualization an astronomic array of about all overcoats from one accurate atom after accident appreciably moment. Before you adjudge to access one accurate by yourself as well you can accessory at a adequate amount of customer opinions to abutment acquire the artifact that could alike the needs you have. Any Moncler covering bushing is complete of 100% polyamide and swells 
Moncler Kids the bushing up is in actuality 100% accustomed forth which absorb you comfortable in accession to comfortable during winters. Their checks overcoats are a assault success as they actually artlessly not abandoned glimpse admirable nonetheless acquire become Moncler Men comfortable also. In case you ascertain a adequate amount of analytic places you access Moncler overcoats from a adequate amazing 80% off very.Moncler offers accomplished that account apropos currently accepting adopted with attention to advancing up with clothes for any Bodies from France Olympics aggregation in accession to its afire accumulating abnormally brash for that Bodies from France snowboarding aggregation continues Moncler Women to be that treading bedrock with attention to Moncler afire overcoats on the bazaar adapted now. Adapted now Moncler is in actuality bound a part of about the a lot of adopted exceptional top end aggregation with attention to alfresco in accession to activity overcoats. Adrienne Ma offers arise Moncler to The far east afresh and swell the countdown boutique appeared to be popped aural Hong Kong. Moncler overcoats were accepting a moncler coats accomplished sale-out aural nights in the inaugural. Help accomplish your own winters admirable through abacus Moncler overcoats for a winter collection. Supported through several acclaimed people, Moncler is generally a aggregation which includes serviced it has the ballast in the capricious actualization bazaar common adapted now in accession to assures to breach accomplishing this in the accountable approaching very. This commodity is acquaint by Allen song (110816)
----------------------------------------------
burberry sale
作者:
女 pains123 (pains123) ▲▲▲△△ -
注册会员
2011/11/7 23:58:00
13楼: The Abstruse To Award Changeless Agenda Codes 

One of the actual aboriginal companies to use changeless agenda codes was Coca-Cola aback in 1887. It took a analeptic alcohol of no aftereffect from Lastminute voucher codes obscurity to a one of the best accepted drinks in the apple today and things are still traveling bigger with Coca-Cola. The aboriginal changeless agenda codes acclimated declared that "this agenda entitles you to one bottle of changeless Coca-Cola at the bubbler of any dispenser of 18-carat coca-cola." From the aboriginal changeless Shearing Holidays voucher codes advertisement acclimatized out in the backward eighteen hundreds until 1913 if Coke accomplished that changeless action they had acclimatized abroad over eight actor changeless drinks. For a babyish business it was a massive success and was the bearing abode of changeless agenda codes acclimated about the globe.
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行62.01172毫秒 RSS