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

Delphi ÀàÓë¶ÔÏóÄÚ´æ½á¹¹Ç³Îö(ÏÂ)

¶ÔÏó¿Õ¼ä
ÄÚ´æ½á¹¹
¶ÔÏóµÄÄÚ´æ½á¹¹Êǹ̶¨µÄ£¬¶ÔÏó´´½¨Íê³Éºó¾ÍÎÞ·¨¸Ä±ä¡£ËüÖ÷Òª´æ´¢Á˶ÔÏóÖ±ÊôÀàµÄµØÖ·£¨µÈ¼ÛÓÚÀàµÄVMT£©£¬¶ÔÏó±¾ÉíµÄ³ÉÔ±Êý¾Ý£¬¶ÔÏóµÄ½Ó¿Ú·½·¨±íµØÖ·¡£½á¹¹ÈçͼËùʾ£º
˵Ã÷£ºÈôÀàδÉùÃ÷½Ó¿Ú£¬Ôò¶ÔÏó¿Õ¼ä²»´æ´¢½Ó¿Ú·½·¨±íµØÖ·¡£
 
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼äµÄ¹ØÏµ
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼ä£º
ʾÀý£º·ÖÎö¶ÔÏóµÄ»ù±¾ÄÚ´æ½á¹¹
´úÂ룺
type
    IMyInterface = interface(IUnknown)
        ['{06F3EA2C-E9C2-410E-97BE-D88ADF775EC3}']
        procedure InterfaceMethod1;
    end;
    TMyObject = class(TInterfacedObject,IMyInterface)
    private
        FField1: Integer;
        FField2: Boolean;
    protected
        procedure InterfaceMethod1;
    public
        procedure DynamicMethod1; dynamic;
        procedure DynamicMethod2; dynamic;
        procedure VirtualMethod1; virtual;
        procedure VirtualMethod2; virtual;
    end;
    TMyObject2 = class(TMyObject)
    private
        FField3: Integer;
    public
        procedure DynamicMethod1; override;
        procedure VirtualMethod1; override;
    end;
 
ÄÚ´æ½á¹¹£º
TInterfacedObjectÄÚ´æ½á¹¹Èçͼ£º
TMyObjectÄÚ´æ½á¹¹Èçͼ£º
 
TmyObject2ÄÚ´æ½á¹¹Èçͼ£º
 
 
Èçͼ£¬TMyObject2µÄVirtualMethod1·½·¨¸²¸ÇÁ˸¸ÀàµÄVirtualMethod1·½·¨£¬¹ÊÐé·½·¨±íÖÐVirtualMethod1µÄÖ¸ÕëÖ¸ÏòÁËTMyObject2µÄVirtualMethod1·½·¨¡£TMyObject2µÄDynamicMethod1·½·¨¸²¸ÇÁ˸¸ÀàµÄDynamicMethod1·½·¨£¬ÓÉÓÚ¶¯Ì¬·½·¨±íÖ»±£´æµ±Ç°ÀàµÄ¶¯Ì¬·½·¨±í£¬¹Ê±íÖÐÖ»ÓÐÒ»¸öDynamicM


Ïà¹ØÎĵµ£º

delphi Èý²ã¿ª·¢¾­Ñé»ã×Ü

delphiºÜÔç¾ÍÒѾ­¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·.  ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......

DelphiÊý¾Ý¿â±à³ÌÒ»ÈÕͨ

DelphiÊý¾Ý¿â±à³ÌÒ»ÈÕͨ¡£
¡¡¡¡Í¨³£Çé¿öÏ£¬ÀûÓà Delphi ¿ª·¢Êý¾Ý¿âÓ¦ÓóÌÐò£¬¿ÉÒÔʹÓÃTTable¡¢TDataSource¡¢TDBEdit¡¢TDBNavigatorµÈ¹¹¼þ¡£Ö»ÒªÕýÈ·ÉèÖÃÁ˹¹¼þµÄijЩÊôÐÔ£¬ÔÙ±àд±ØÒªµÄ³ÌÐò´úÂë¶ÔÒ»Ð©ÌØ¶¨Ê¼þ½øÐд¦Àí£¬¾ÍÄܹ»Íê³É¶Ô¶àÖÖÊý¾Ý¿â½øÐеÄÊý¾Ý´¦Àí£¬ÀýÈ磺¼Ç¼µÄÊäÈë¡¢Ð޸ġ¢É¾³ýºÍ²éѯµÈ¡£ÕâÑù×öËäȻֻÐèÒª±à ......

DELPHIÓÃFindWindow¡¢FindWindowEx ²éÕÒ´°¿Ú

FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWindowEx ±È FindWindow ¶à³öÁ½¸ö¾ä±ú²ÎÊý:
FindWindowEx(
Parent: HWND; {Òª²éÕÒ×Ó´°¿ÚµÄ¸¸´°¿Ú¾ä±ú}
Child: HWND; {×Ó´°¿Ú¾ä±ú}
ClassName: PChar ......

DelphiÖн¨ÒéʹÓõÄÓï¾ä

DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1   ÅжÏÂß¼­ÀàÐÍ  
  var   B:   Boolean;  
  begin  
      B   :=   Boolean(2);   //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B ......

Delphi ÀàÓë¶ÔÏóÄÚ´æ½á¹¹Ç³Îö(ÉÏ)


²Î¿¼×ÊÁÏ
ÀîÕ½.¡¶Îò͸delphi¡·£¬µÚ1Õ“DELPHIµÄÔ­×ÓÊÀ½ç”
 “̽Ë÷DelphiÀàÓë¶ÔÏóµÄÄÚ´æ½á¹¹”
»ù±¾ÖªÊ¶
¶¯Ì¬ÄÚ´æÓ뾲̬ÄÚ´æ
µ±³ÌÐòÔËÐÐʱ£¬ÏµÍ³Ê×ÏȽ«ËùÓÐÊý¾Ý×°ÔØÈëÄڴ棬Íê³É³õʼ»¯£¬È»ºó´ÓÈë¿ÚµØÖ·¿ªÊ¼Ö´ÐдúÂë¡£
³ÌÐò×°ÔØºó¼´´æÔÚÓÚÄÚ´æ¿Õ¼äÖеÄÊý¾ÝÎÒÃdzÆÖ®Îª¾²Ì¬Äڴ棬ÔËÐйý³ÌÖÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ