如何控制桌面图标在桌页上的位置?(编程控制) 如何控制桌面图标在桌页上的位置?(编程控制) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你能不能说清楚一些呢??桌面本身就是一个ListView呀!!!! 以下是获得桌面句柄函数function TForm1.GetDesktopHand: THandle;begin Result:=FindWindow('progman',nil); Result:=GetWindow(Result,GW_Child); Result:=GetWindow(Result,GW_Child);end;var N:integer;//N是桌面上的第几个图标。 Hand: THandle; X, Y : Word;//X,Y就是图标的坐标啦!自己给个值它吧。begin n:=0; Hand:=GetDesktopHand; SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0); SendMessage(Hand,LVM_SetItemPosition,N,MakeLparam(X, Y)); end; pagecontrol sheet1上放有一个dbgrid,想在点击sheet时,把dbgrid放到当前sheet上。 XP升级之后BDE不能连接数据库 TList.Add(),只增加最后一条记录! 对于初初交往不久的女孩,情人节送什么好? 有关触发器的问题(怀疑delphi的ado控件有问题) 求教Action Manager控件的一些用法. 一个关于ADO DLL的问题! 线程自动停止 Treeview图标问题 dblookupcombobox问题 关于用停用词表过滤文本文件 我想从TDBGrid继承一个子类,可以实现奇偶行的颜色交替,但遇到了问题,请大家帮忙看看
桌面本身就是一个ListView呀!!!!
以下是获得桌面句柄函数
function TForm1.GetDesktopHand: THandle;
begin
Result:=FindWindow('progman',nil);
Result:=GetWindow(Result,GW_Child);
Result:=GetWindow(Result,GW_Child);
end;var
N:integer;//N是桌面上的第几个图标。
Hand: THandle;
X, Y : Word;//X,Y就是图标的坐标啦!自己给个值它吧。
begin
n:=0;
Hand:=GetDesktopHand;
SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0);
SendMessage(Hand,LVM_SetItemPosition,N,MakeLparam(X, Y));
end;