Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ôò´¥·¢Ê¼þÁË


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi¾ÍÊDZ»ÄÇЩÕý°æ´úÀíÉ̸ãÀõÄ

¾­³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾
ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±....
ÄDz»ÊÇÎÊÌâ¡£
ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£
ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......

delphi´æ·Åµ½Ò»¸öÊý×éÀï

¶¨Ò壺 
type
  pm= packed record { IO¼Ç¼ }
  Name:string[16]; { IOÃû³Æ }
  CHn:Byte; {ÊäÈëͨµÀºÅ }
  Pvh:Double; { Á¿³ÌÉÏÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ