windows xp 桌面上的快捷方式或者文件在拖动的时候有个虚图随着移动,开始移动的时候还有个“ + ” 显示,如何实现这个功能。
解决方案 »
- 买的QQ号密保又被卖号的改回去了,想自己写一个批量修改QQ密保的小软件,有没有delphi的QQRSA加密原码啊。
- SPCOMM控件ComReceiveData能接收数据,但不能把数据传递给其他过程
- 用dbgrid+table录入数据,保存时会自动变小?
- 如何區分在Dephi里按F9運行還是直接運行程式??
- 请教关于 Formula One 的简单问题
- 关于调用DTS的问题,高分求解
- 关于QReport的问题!
- Dbgrid的自动换行问题
- delphi需要什么函数库
- 多少分都给:如何操作WebBrowser的缓冲区,即对目录Temporary Internet Files中文件添加删除等??急急!!!(
- 请问大家一个简单的UPDATE问题,急,马上结贴
- 说一声就可以-TDBGRID/DBGRID问题
不是我要的 当从一个toolbar的一个image/button/panel 向 pagectrol里面拖动的 时候拖动效果。
来自:卷起千堆雪tyn, 时间:2001-11-06 19:54:00, ID:711607
搞定~~~在FORM1上放一个ListView1,建立几个Items,一个ImageList1,ImageList1里面放几个图标~~
设置ListView1.LargeImages :=ImageList1;procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept:=Source is TlistView;
end;procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
PosPoint:TPoint;
begin
PosPoint.x:=x;
PosPoint.y:=Y;
(Source As TListView).Selected.SetPosition(PosPoint);
end;procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
with sender as TListview do
begin
if GetItemAt(x,y)<>nil then
begindrag(false);
end;
end;
end;
不分场合,不分地点,不分时间 大家宣传一下:
一组数据,日本对中国的依赖程度现排最前,特别是对中国市场的依赖,
如果中国人1个月不买日货,日本将有数千家企业面临破产。
如果中国人6个月不买日货,日本将有一半人失业。
如果中国人1年不买日货,日本经济结构彻底瓦解,日本还能这样嚣张吗!
你如果是中国人,不用你上战场当炮灰,
你要做的事很简单,就是不买日货。
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
抵制日货网络签名处:http://www.dzrhlm.com/book/
给出的链接打印了看。