Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð

 Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð ÊÕ²Ø
 Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö“ϵͳ·þÎñ³ÌÐò”µÄ½ø³Ì£¬ÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ðÊÇ£º
ϵͳ·þÎñ²»Óõǽϵͳ¼´¿ÉÔËÐУ»
ϵͳ·þÎñÊÇÔËÐÐÔÚSystem Idle Process/System/smss/winlogon/servicesÏµģ¬¶ø×ÀÃæ³ÌÐòÊÇÔËÐÐÔÚExplorerÏµģ» ......

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
 ´ò¿ªDelphi±à¼­Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......

Delphiµ÷ÓÃÍⲿ³ÌÐòÏê½â

WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ­¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI; 
1.±ê×¼Ó÷¨ 
¡¡¡¡ ShellExecuteº¯ÊýÔ­Ðͼ°²ÎÊýº¬ÒåÈçÏ£º 
function ShellExecute(hWnd: HWND; Operati ......

ÊÇvcµÄbug»¹ÊÇdelphiµÄbug?

×î½üÒ»Õó×Ó£¬×ÜÊDZ»Ò»¸öĪÃûÆäÃîµÄbugÀ§ÈÅ¡£×Ô¼ºÐ´µÄocx£¨.net2005£©ÔÚdelphi7Öе÷Óã¬Ã÷Ã÷ûÓÐÊÍ·ÅÖ÷¶¯ÊͷŹýÄڴ棬ȴ±»Á¬ÐøÊÍ·ÅÁËÁ½´Î¡£½á¹û£¬³ÌÐòÍ˳öʱ¾ÍdownµôÁË¡£µ±È»£¬ÕâÊÇÔÚdebugģʽϲŻá³öÏÖ£¬µ«ÊÇexeÅܵÄʱºò»áĪÃûÆæÃîµÄdownµô£¬¶øÇÒ³ö´íÍùÍùÖ¸Ïòocx£¬ÎÒÏëÒ»¶¨ºÍocxµÄµ÷ÓÃÓйء£
ÉÏÍøÕÒÁËpurify£¬boundscheck ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ