ListView的API(100分)

shabi · 2004-03-02

为什么有的listView的API管用，有的不管用，是不是我的API参数写法不对，大家帮我看看 不管用的：   itemNo:= ListView_FindItem(hand,-1,itemInfo); 这句话返回的值始终是0，不知道为什么，高手指点. unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,CommCtrl,   StdCtrls; type   TMyShape=(Circle,Heart,screwCurve,normal);   TForm1 = class(TForm)     Button1: TButton;     cbShape: TComboBox;     Edit1: TEdit;     Label1: TLabel;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function GetDesktopHand: THandle; var Htemp:THandle; begin   Result:=FindWindow('progman',nil);   Result:=GetWindow(Result,GW_Child);   Result:=GetWindow(Result,GW_Child); end; procedure DrawPic(r: integer); var   i,j,itemNo, Count, CenterX, CenterY, TempR :integer;   Hand: THandle;   Radian: double;   TempRect: TRect;   DesktopHeight,DesktopWidth :integer;   X, Y,k : Word;   ItemInfo:LV_FINDINFO;   mylv:Lv_Item;   P:TPoint; begin   Hand:=GetDesktopHand;   SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0);   DesktopWidth:=TempRect.Right - TempRect.Left;   DesktopHeight:= TempRect.Bottom - TempRect.Top;   CenterX:=DesktopWidth div 2;   CenterY:=DesktopHeight div 2;   if CenterX>CenterY then     TempR:=CenterY-20   else     TempR:=CenterX;   if r>TempR then r:=TempR;   Count:=Listview_GetItemCount(Hand);   Radian:=2*3.14159/Count;   k:=Trunc(r*0.5);   with itemInfo do   begin      flags:=LVFI_PARTIAL;      psz:=pchar('server');   end;   itemNo:= ListView_FindItem(hand,-1,itemInfo);   SendMessage(Hand,LVM_SetItemPosition,ItemNo,MakeLparam(900, 10));   i:=-1;   for j:=0 to Count-1 do   begin     i:=i+1;     Case TMyShape(form1.cbShape.ItemIndex) of       Circle:        begin          X:=Integer(CenterX+Trunc(r*Sin(i*Radian)));          Y:=Integer(CenterY+Trunc(r*Cos(i*Radian)));        end;       Heart:        begin          X:=Integer(CenterX+Trunc(r*(1-sin(i*Radian))*Cos(i*Radian)));          y:=100-Integer(Trunc(r*(1-sin(i*Radian))*Sin(i*Radian)));        end;       screwCurve:        begin          x:=Integer(Trunc(r*radian*i-k*sin(i*radian)));          y:=Integer(Centery+Trunc(r-k*cos(i*radian)));        end;       NorMal:        begin          x:=(i div 9)*80+20;          y:=(i mod 9)*80+20;        end;     end;     SendMessage(Hand,LVM_SetItemPosition,i,MakeLparam(X, y));   end;    //  sendMessage(Hand,LVM_ARRANGE,LVA_ALIGNTOP,0); end; procedure TForm1.Button1Click(Sender: TObject); var r:integer; begin   if edit1.text='' then r:=250   else r:=strToInt(edit1.text);   DrawPic(r); end; procedure TForm1.FormCreate(Sender: TObject); var i:TMyShape; begin    cbShape.ItemIndex:=0; end; end.

andy263 · 2004-03-02

with itemInfo do  begin     flags:=LVFI_STRING;     psz:='server';  end;  itemNo:= ListView_FindItem(hand,-1,itemInfo); 这样试试

shabi · 2004-03-02

试过了仁兄，如果一样撒

shabi · 2004-03-02

晕，今天试试全乱了，psZ的内容设不设好象没有影响，itemno的值不是0但也不是我要打的，乱了，晕

shabi · 2004-03-02

好象 text 不是指的他的名称，text返回的值好象全是空。

andy263 · 2004-03-02

dfm贴上我试试去

shabi · 2004-03-03

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,CommCtrl,   StdCtrls; type   TMyShape=(Circle,Heart,screwCurve,normal);   TForm1 = class(TForm)     Button1: TButton;     cbShape: TComboBox;     Edit1: TEdit;     Label1: TLabel;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function GetDesktopHand: THandle; begin   Result:=FindWindow('progman',nil);   Result:=GetWindow(Result,GW_Child);   Result:=GetWindow(Result,GW_Child); end; procedure DrawPic(r: integer); var   i,j,itemNo, Count, CenterX, CenterY, TempR :integer;   Hand: THandle;   Radian: double;   TempRect: TRect;   DesktopHeight,DesktopWidth :integer;   X, Y,k : Word;   ItemInfo:LV_FINDINFO;   buffer:array[0..100] of char;   mylv:Lv_Item;   pitem:^lv_Item; begin   Hand:=GetDesktopHand;   SystemParametersInfo(SPI_GetWorkArea,0,@TempRect,0);   DesktopWidth:=TempRect.Right - TempRect.Left;   DesktopHeight:= TempRect.Bottom - TempRect.Top;   CenterX:=DesktopWidth div 2;   CenterY:=DesktopHeight div 2;   if CenterX>CenterY then     TempR:=CenterY-20   else     TempR:=CenterX;   if r>TempR then r:=TempR;   Count:=Listview_GetItemCount(Hand);   Radian:=2*3.14159/(Count-1);   k:=Trunc(r*0.5);   with itemInfo do   begin      flags:=LVFI_partial;      psz:=pchar('Inter');   end;   itemNo:= ListView_FindItem(hand,-1,itemInfo);   showmessage(IntTostr(itemNo));  // ItemNo:=SendMessage(hand,lvm_findItem,-1,lparam(@itemInfo));   SendMessage(Hand,LVM_SetItemPosition,ItemNo,MakeLparam(900, 10));  // Showmessage('a');   i:=-1;   for j:=0 to Count-1 do   begin     if j=itemNo then continue;     i:=i+1;     Case TMyShape(form1.cbShape.ItemIndex) of       Circle:        begin          X:=Integer(CenterX+Trunc(r*Sin(i*Radian)));          Y:=Integer(CenterY+Trunc(r*Cos(i*Radian)));        end;       Heart:        begin          X:=Integer(CenterX+Trunc(r*(1-sin(i*Radian))*Cos(i*Radian)));          y:=100-Integer(Trunc(r*(1-sin(i*Radian))*Sin(i*Radian)));        end;       screwCurve:        begin          x:=Integer(Trunc(r*radian*i-k*sin(i*radian)));          y:=Integer(Centery+Trunc(r-k*cos(i*radian)));        end;       NorMal:        begin          x:=(i div 9)*80+20;          y:=(i mod 9)*80+20;        end;     end;     SendMessage(Hand,LVM_SetItemPosition,j,MakeLparam(X, y));   end;  { with mylv do    begin      mask:=LVIF_TEXT;      iitem:=3;      isubitem:=0;      fillchar(buffer,sizeof(buffer),$ffff);      psztext:=buffer;      cchTextMax:=sizeOf(buffer);    end;    pitem:=@mylv;    ListView_GetItem(hand,mylv);    }    ListView_SetTextColor(hand,clred);    ListView_SetTextBkColor(hand,clLime); end; procedure TForm1.Button1Click(Sender: TObject); var r:integer; begin   if edit1.text='' then r:=250   else r:=strToInt(edit1.text);   DrawPic(r); end; procedure TForm1.FormCreate(Sender: TObject); begin    cbShape.ItemIndex:=0; end; end.

shabi · 2004-03-03

object Form1: TForm1   Left = 480   Top = 328   BorderIcons = [biSystemMenu]   BorderStyle = bsSingle   Caption = '桌面图标排放'   ClientHeight = 272   ClientWidth = 157   Color = clBtnFace   Font.Charset = GB2312_CHARSET   Font.Color = clWindowText   Font.Height = -12   Font.Name = '宋体'   Font.Style = []   OldCreateOrder = False   OnCreate = FormCreate   PixelsPerInch = 96   TextHeight = 12   object Label1: TLabel     Left = 24     Top = 40     Width = 24     Height = 12     Caption = '半径'   end   object Button1: TButton     Left = 40     Top = 144     Width = 75     Height = 25     Caption = '确定'     TabOrder = 0     OnClick = Button1Click   end   object cbShape: TComboBox     Left = 24     Top = 8     Width = 113     Height = 20     ItemHeight = 12     TabOrder = 1     Text = 'cbShape'     Items.Strings = (       'Circle'       'heart'       'screwCurve'       'Normal')   end   object Edit1: TEdit     Left = 24     Top = 64     Width = 113     Height = 20     TabOrder = 2     Text = '250'   end end

jackchin · 2004-03-03

itemNo:= ListView_FindItem(hand,-1,itemInfo); 这句话返回的值始终是0，  itemNo:= ListView_FindItem(listview1.hand,-1,itemInfo); 感觉上, 你对ListView的操作的Handle是从这个函数获得的, ====================================================== function GetDesktopHand: THandle; begin   Result:=FindWindow('progman',nil);   Result:=GetWindow(Result,GW_Child);   Result:=GetWindow(Result,GW_Child); end; ===================================================== 它是不是一个ListView的Handle ?

shabi · 2004-03-03

有的API函数也用这个句柄，要不行都应该不行啊！

andy263 · 2004-03-03

你的程序在我电脑上运行正常。

andy263 · 2004-03-03

图标排列正常。

wjh_wy · 2004-03-03

在我的电脑上运行也正常呀 修改了一下不会闪动的效果： procedure DrawPic(r: integer); var   i,j,itemNo, Count, CenterX, CenterY, TempR :integer;   Hand: THandle;   Radian: double;   TempRect: TRect;   DesktopHeight,DesktopWidth :integer;   X, Y,k : Word;   ItemInfo:LV_FINDINFO;   buffer:array[0..100] of char;   mylv:Lv_Item;   pitem:^lv_Item; begin   Hand:=GetDesktopHand;   SendMessage(Hand, WM_SETREDRAW, 0, 0);   try   ...   finally     SendMessage(Hand, WM_SETREDRAW, 1, 0);   end; end;

shabi · 2004-03-03

正常是正常，不过我想找到其中一个图标的 index ，比如"我的电脑“的，用finditem 不行啊，再帮我看看

zjan521 · 2004-03-03

ListView的API必须在同一进程。(否则你传过去的指针无效)

apus · 2004-03-11

请楼主看清楚： with itemInfo do  begin     flags:=LVFI_STRING;     psz:='server';  end; 不同于  with itemInfo do   begin      flags:=LVFI_PARTIAL;      psz:=pchar('server');   end;

apus · 2004-03-11

另外： 请确认是listview的handle。 测试此api没问题。

ListView的API(100分)

shabi

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

jackchin

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

wjh_wy

Unregistered / Unconfirmed

shabi

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

apus

Unregistered / Unconfirmed

apus

Unregistered / Unconfirmed

Similar threads