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

delphiÖÐTreeViewʹÓÃ

TreeViewÓɽڵ㹹³É£¬½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó£¬ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ£º
1¡¢count£¬½Úµã¸öÊý¡£
2¡¢item[index]  ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ÓУº
AddFirstÌí¼ÓµÚÒ»¸ö¸ù½Úµã¡£Óɴ˺¯ÊýÌí¼ÓµÄ½Úµã×ÜÅÅÔÚÇ°Ã棬³ý·ÇºóÀ´ÓÖʹÓô˺¯ÊýÌí¼ÓÁËÒ»¸ö½Úµã£¬ÔòºóÌí¼ÓµÄ½Úµã½«ÅÅÔÚÇ°Ãæ¡£¸Ãº¯Êý·µ»ØÐÂÌí¼ÓµÄ½Úµã¡£
AddChildFirstÌí¼ÓµÚÒ»¸ö×ӽڵ㣬ҪÇóÓи¸½Úµã×÷ΪÆä²ÎÊý¡£·µ»ØÐÂÌí¼ÓµÄ½Úµã¡£
AddChildÌí¼ÓÒ»¸ö×ӽڵ㣬ҪÇóÓи¸½Úµã×÷ΪÆä²ÎÊý¡£·µ»ØÐÂÌí¼ÓµÄ½Úµã¡£
AddÌí¼ÓÒ»¸öÐֵܽڵ㣬ҪÇóÓÐÐֵܽڵã×÷ΪÆä²ÎÊý¡£·µ»ØÐÂÌí¼ÓµÄ½Úµã¡£
Èý¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£Óõĵõ½½ÚµãµÄ²Ù×÷ÓУº
GetFirstNode() µÃµ½¸ù½Úµã¡£
È»ºóÅäºÏTTreeNode.GetNext(),¾Í¿ÉÒÔ·ÃÎÊËùÓеĽڵ㡣
ËÄ¡¢½¨Ê÷¾ÙÀý£º
var
  root_node,cur_node:TTreeNode;
begin
  root_node:=AddFirst(nil,¸ù½Úµã1);
  cur_node:=addChildfirst(root_node,nil,¸ù½Úµã1_child1);
  add(cur_node,¸ù½Úµã1_child2);
  root_node:=Add(nil,¸ù½Úµã2);
  AddChildFirst(root_node,¸ù½Úµã2_child1); 
end;
 
Î塢ʼþ´¥·¢£º
µ±´ÓÒ»¸ö½ÚµãÌøµ½ÁíÒ»¸ö½Úµã£¬»á´¥·¢TTreeView.OnChangeʼþ¡£¸ÃʼþÖУ¬½«´«µÝnode,¼´µ±Ç°±»Ñ¡ÖеĽڵ㡣
µ±ÐÞ¸ÄÒ»¸ö½ÚµãµÄtextʱ£¬»á´¥·¢TTreeView.onEditʼþ¡£
Áù¡¢½«½ÚµãºÍ½ÚµãËù¶ÔÓ¦µÄÊý¾ÝÁªÏµÆðÀ´
¶ÔÓÚÿ¸öTTreeNode,ÓиöDataÊôÐÔ£¬¿ÉÒÔ´æ·ÅÒ»¸öÖ¸Õë¡£ÎÒÃÇ¿ÉÒÔÀûÓÃÕâ¸öÓòÀ´´æ·ÅÓë½Úµã¶ÔÓ¦µÄ×Ô¼ºµÄÊý¾Ý¡£
1.ÎÒÃÇÏȶ¨ÒåÒ»¸öÊý¾Ý½á¹¹£¬×÷Ϊ¼Ç¼ÎÒÃÇÒª¼Ç¼µÄÊý¾Ý¡£È磺
type
  PMyData=^TMyData;
  TMyData=Record
    sFName:string;
    sLName:String;
    nIndex:integer;
  end;
2.È»ºó£¬´´½¨Êýʱ£¬½«½ÚµãºÍ½ÚµãÊý¾ÝÁªÏµÆðÀ´£º
procedure TForm1.Button1Click(Sender: TObject);
var
  myshuju: PMyData
  cur_node:TTreeNode;
begin
  New(myshuju);  //¼Çס£¬Ò»¶¨ÒªÏÈ·ÖÅäÄÚ´æ¡£Óм¸¸ö½Úµã£¬¾ÍÒª·ÖÅ伸´ÎÄÚ´æ¡£
  myshuju^.FName:=Edit1.Text;
  Myshuju^.LName := Edit2.Text;
  TreeViewI


Ïà¹ØÎĵµ£º

ÔõôÓÃdelphiÏòÍøÒ³Ìá½»µÇ½ÐÅÏ¢

procedure TForm1.Button2Click(Sender: TObject);
var  
o : Olevariant;
begin  
  webbrowser1.Navigate('http://www.163.com');  
  delay(2000);
  o :=   WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';  
  o := W ......

³õ̽DelphiÖеIJå¼þ±à³Ì


Ç°ÑÔ 
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØбàÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓЭ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......

DelphiÖпØÖÆVBA ºê

ÈçºÎÔÚDelphiÀïÃæÀûÓÃWordµÄVBA´úÂë½øÐÐһЩ×ܽᡣ
1¡¢  Éú³ÉVBA´úÂë¡£Word±¾Éí¾ßÓкÜÇ¿µÄ¿ÉÀ©Õ¹ÐÔ£¬ÓÈÆäÊÇÖ§³ÖÓû§×Ô¶¨Ò幦ÄÜ£¬ÆäʵÏÖ
µÄÖ÷Òª·½Ê½¾ÍÊÇͨ¹ýVBA´úÂëÀ´ÊµÏֵġ£ÔÚ“¹¤¾ß->ºê->Visual Basic±à¼­Æ÷”ÀïÃæ¾Í¿ÉÒÔ¿´
µ½¾ßÌåµÄºê´úÂ룬¿ÉÒÔÖ±½Ó½øÐб༭¡£¶øÇÒ»¹¿ÉÒÔʹÓüÖƺêµÄ¹¦ÄÜ×Ô¶¯ ......

delphi ϵÄÈÕÆÚ¼ÆËã

  ÔÚÏîÄ¿ÖУ¬ÐèÒª×öÒ»¸öÈÕÆÚµÄÌáÐѹ¦ÄÜ£¬Í¦ÓôÃƵģ¬¶ÔÈÕÆڵļÆËã:
ºÜÐÒÔ˵ÄÊÇÔÚdelphi ÖÐÓÐÏÖÓеļÆË㺯Êý£¬DateUtilsµ¥Ôª£»
  ·¾¶:*\Delphi7\Source\Rtl\Common Ŀ¼Ï¡£
Ìù³öÒ»²¿·Ö:
function IncYear(const AValue: TDateTime;
  const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ