delphi panelÒÆ¶¯ÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ
ÎÒÓÐÒ»¸öpanelÊÇÏÔʾÊÓÆµµÄÏÖÔÚÓÃpanelµÄDragKindÊôÐÔÉèΪdkDock£¬ÔÚOnMouseDownʼþÖÐд´úÂ룺panel.BeginDrag(False);
°Ñ¿É±»Í£¿¿µÄ´°ÌåµÄDockSiteÊôÐÔÉèÖÃΪTrue
È»ºóÒÆ¶¯µ½ËûÍ£¿¿µÄ´°ÌåÁËÊÓÆµ¾Í²»ÏÔʾÁ˾ÍÊǸö°×ÃæÁË
ÇëÎʸ÷λ¸ßÈËÕâ¸öÊÇʲôÎÊÌâ ¾ßÌå¸ÃÔõô½â¾ö
лл
°ÑÄãµÄÊÓÆµÏÔʾˢÐÂÒ»ÏÂ
˵°×ÁË£¬DelphiµÄ´°ÌåÊDz»¶ÏÖØ»æµÄ¡£
ÒªÏëÍ϶¯ºÍÍ£¿¿£¬²»Ó°ÏìÊÓÆµÐ§¹ûºÜÄÑ¡£½¨ÒéÍ϶¯Ê±ÔÝÍ£ÊÓÆµ£¬Í£¿¿ºóÔÙ²¥·Å¡£
ûÊÔ¹ý£¬ÌáÌáÒâ¼û
ÓÃÏ̡߳£
Ë¢ÐÂÁË´°Ìåû Application.ProcessMessages
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,´úÂëµÄÿһÐÐҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,ÓеĻ¹ÒªÁíÆðÒ»ÐÐ,Õâ¸öÓй涨Âð?ÒªÔõôд?
ÄѵÀ²»ÄÜÔõÑùдÂð?ÎÒ´ò¸ö±È·½,(.´ú±í³ÌÐò´úÂë)
..............................
......... ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===================================================================== ......
ÈçºÎ¿ÉÒÔÈÃpanelÒÆ¶¯²»ÊÜ´°ÌåÏÞÖÆ¿ÉÒÔËæÒâÒÆ¶¯
Áí½¨Ò»¸ö×Ó´°Ìå,°ÑÒªÒÆ¶¯µÄPanel·ÅÉÏÃæ²»¾ÍokÁË
Õâ¸öÂï ÔËÐÐÆÚ»¹ÊDZàÒëÆÚ£¿
¾ÍÊǽ¨Ò»¸öÎޱ߿òµÄÒÆ¶¯´°Ìå¡£
ÊÇÔËÐкó»¹ÓÐÒÔÉ ......