Îʼ¸¸ö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 ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
¾³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾
ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±....
ÄDz»ÊÇÎÊÌâ¡£
ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£
ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......
¶¨Ò壺
type
pm= packed record { IO¼Ç¼ }
Name:string[16]; { IOÃû³Æ }
CHn:Byte; {ÊäÈëͨµÀºÅ }
Pvh:Double; { Á¿³ÌÉÏÏ ......