Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi TListViewµÄʹÓÃ


ListView1.Items Ϊ±ê×¼ TlistitemsÀà
ListView1.Items
(1)¸³Öµ
with ListView1.Items.Add do
begin
Caption:=caption; //Ìí¼ÓµÚÒ»Ïî
SubItems.add(aaaaa); //Ìí¼ÓºóÃæÊý¾Ý
SubItems.add(1234);
SubItems.add(1234);
end; //Ò»¶¨ÒªÊ¹ÓÃWITH½á¹¹.
(2)ȡֵ
listview1.Items.Item[i].Caption È¡µÃijÌõÊý¾Ý±êÌâ
listview1.Items.Item[i].SubItems.Strings[j] È¡µÃijÌõÊý¾ÝÄÚÈÝ
listview1.Items.Item[i].SubItems.CommaText Ò»Ìõ¼Ç¼µÄÈ«²¿ÄÚÈÝ,
¸ñʽ: "±êÌâ","ÄÚÈÝ1","ÄÚÈÝ2",....
listview1.Items.Item[i].SubItems.Text Ò»Ìõ¼Ç¼µÄÈ«²¿ÄÚÈÝ,
¸ñʽ: ±êÌâ,ÄÚÈÝ,ÄÚÈÝ2....
(3)ɾ³ý
listview1.Items.Item[i].Delete; ɾ³ýÒ»ÌõÊý¾Ý
(4)Êý¾ÝÀàÐÍ(³¤¶È)¶¨Òå
i:=ListView1.Items.Count Êý¾ÝÌõÊý
listview1.Items.Item[i].Selected ¸ÃÌõÊý¾ÝÑ¡Öзñ(MultiSelect¾ö¶¨µ¥Ñ¡¸´Ñ¡)
(5)ÆäËû
ListView1.Items.Clear; Çå³ýÊý¾Ý
Delphi ListViewµÄÓ÷¨(³£Óü¼ÇÉ)
//Ôö¼Ó
            i := ListView1.Items.Count;
            with ListView1 do
            begin
              ListItem:=Items.Add;
              ListItem.Caption:= IntToStr(i);
              ListItem.SubItems.Add('µÚ '+IntToStr(i)+' ÐÐ');
              ListItem.SubItems.Add('µÚÈýÁÐÄÚÈÝ');
            end;
//°´±êÌâɾ³ý
            for i:=ListView1.Items.Count-1 downto 0 Do
              if ListView1.Items[i].Caption = Edit1.Text then
              begin
         &nb


Ïà¹ØÎĵµ£º

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......

Delphi Open Tools API dz̽

savetime2k@yahoo.com  2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼­Æ÷£¬¸Ð¾õ±ÈÊôÐԱ༭Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEdit ......

delphi canvasʹÓÃ

ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ   
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ   
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ   
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»    ......

delphi stringÀàÐÍתintegerʱ³ö´íµÄ¼ì²â

procedure TForm1.Button1Click(Sender: TObject);
Var
  Num: Integer;
Begin
  Try
    Num:=StrToInt(Edit1.Text);
    Edit2.Text:=IntToStr(Num*Num);
  Except
    On EConvertError Do   ShowMessage(Edit1.Text+'ÎÞ·¨×ª³ÉÕûÊý!'); ......

delphiÖÐWebbrowserÎÊÌâÊÕ¼¯

 delphiÖÐWebbrowserÎÊÌâÊÕ¼¯
»ñµÃÍøÒ³ÖбäÁ¿Öµ     htmÖÐ<script> var currID=123</script>     ³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID     ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ