ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView
ÍøÉÏËÑһϣ¬×ÊÁÏÒ»´ó¶Ñ
treeview¡£ÒªÊµÀýµÄÍøÉϺܶ࣬¹ØÓÚÊý¾Ý¿âµÄÒ²ÓС£
¿ÉÒÔ¿¼ÂÇʹÓÃvirtual treeview.Õâ¸ö¶«¶«±È½Ï¸´ÔÓ£¬µ«¹¦Äܷdz£Ç¿´ó¡£²»¹ýÄãÊdzõ´ÎʹÓã¬Ï°¹ß¾ÍºÃÁË¡£
ÒªÒýÓÃЩʲô°ü£¿
Òª²»ÒªÏÂÔØÐ©Ê²Ã´²å¼þ£¿
Ö±½ÓÍùÉÏÍϾÍÊÇÁË
treeviewÊDZê×¼¿Ø¼þ
virtual treeviewÊǵÚÈý·½¿Ø¼þ£¬µ«ÊÇÃâ·Ñ¿ªÔ´µÄ
dev cxTreeList,¸üÇ¿´ó¡£
procedure TForm1.FormCreate(Sender: TObject);
var
Nodes: TTreeNodes;
node: TTreeNode;
begin
TreeView1.Align := alLeft;
Nodes := TreeView1.Items;
node := Nodes.Add(nil, 'aaa');
node := Nodes.AddChild(node, '111');
node := Nodes.AddChild(node, 'AAA');
node := Nodes.AddChild(node, 'BBB');
Nodes.Add(node, 'CCC');
Nodes.Add(node, 'DDD');
Nodes.Add(node, 'EEE');
node := node.Parent;
Nodes.Add(node, '222');
Nodes.Add(node, '333');
node := node.Parent;
Nodes.Add(node, 'WWW');
Nodes.Add(node, 'QQQ');
node := node.Parent;
Nodes.Add(node, 'LLL');
end;
×Ô¼ºÔÚDELPHIÏÂÊÔÒ»ÏÂ
ͬÒâÂ¥ÉÏ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл
Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶
ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡¡¡¡*^_^*
¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå
ÕæÎÞÓï¡£¡£¿É ......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.
ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£
ÒýÓÃ
......