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

Îʼ¸¸ödelphiµÄÊôÐÔÎÊÌâ

edit.begindrag(false,10);±íÃæ¿´Ó¦¸ÃÊÇ¿ªÊ¼Í϶¯ÀïÃæµÄfalse,10²ÎÊý±¾±ð¶ÔӦʲô£¿ 


procedure TDragForm.ListDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := True;
  if (Source = Edit1) and
  ((Sender as TCustomListBox).Items.IndexOf (Edit1.Text) >= 0) then
  Accept := False;
end


Õâ¸öʼþµÄacceptÆðʲô×÷Óã¿

stateÊÇ×öʲôÓõģ¿
ÓÐûÓкÃÐĵĸßÊÖ¸øÎÒµã·Ö°¡ ÎÊÌâÎʵÄÎÒֻʣÏÂ2λÊýÁË

accept×÷ÓÃÊÇ£¬ÊÇ·ñ½ÓÊÜÍÏ·Å£¬Äã×Ô¼ºÅªÒ»¸öÊÔÊÔ±ãÖª

ACCEPT Ϊtrue DragDownʼþ²Å»á±»´¥·¢

ÍÏ·ÅÒ»¸ö¶«Î÷µ½listÉÏ£¬Í¨¹ýondragoverÅжÏÊÇ·ñ¸ºÔðÌõ¼þ£¬acceptΪtrue.»á¸Ä±ä¹â±êΪÍϷŹâ±ê£¬·ñÔòÔòÊǽûÖ¹¹â±ê£¬ÔÚdragdownʱÅжÏaccept ΪtrueÔò´¥·¢Ê¼þÁË


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi ÎÊÌ⣿ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ