Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ôõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

VCµ÷ÓÃDELPHI DLLÂÒÂë

Delphi(Pascal) code:

library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';
{$R *.res}
proced ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ