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

Delphi Open Tools API dz̽

savetime2k@yahoo.com  2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼­Æ÷£¬¸Ð¾õ±ÈÊôÐԱ༭Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEditor class
¡Ñ IComponentEditor interface
¡Ñ TComponentEditor class
¡Ñ TComponentEditor.ExecuteVerb ·½·¨
¡Ñ TComponentEditor.PrepareItem ·½·¨
¡Ñ TComponentEditor.Edit ·½·¨
¡Ñ TComponentEditor.IsInInlined ·½·¨
¡Ñ TDefaultEditor class
¡Ñ TSelectionEditor class
===============================================================================
±¾ÎÄÅŰæ¸ñʽΪ£º
    ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80 ×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾­×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½Ìå×ªÔØ¡£)
Õý ÎÄ
===============================================================================
¡Ñ TBaseComponentEditor class
===============================================================================
TBaseComponentEditor ÊÇËùÓÐÔª¼þ±à¼­Æ÷µÄ»ùÀ࣬ËüµÄ¹¹Ô캯ÊýÓÉ Delphi IDE ÔÚÑ¡ÖÐÒ»¸öÔª¼þʱ±» IDE µ÷Óá£ËùÓеÄÔª¼þ±à¼­Æ÷±ØÐëʵÏÖ TBaseComponentEditor.Create º¯ÊýºÍ IComponentEdiotr ½Ó¿Ú¡£Ôª¼þ±à¼­Æ÷µÄ¹¹Ô캯ÊýÖд«È뵱ǰѡÖеÄÔª¼þºÍ IDesigner ½Ó¿Ú¡£
  { DesignIntf.pas }
  TBaseComponentEditor = class(TInterfacedObject)
  public
    constructor Create(AComponent: TComponent; ADesigner: IDesigner); virtual;
  end;
(* ΪʲôҪÒÔ TInterfacedObject Ϊ»ùÀàÄØ£¿)
===============================================================================
¡Ñ IComponentEditor interface
===============================================================================
IComponentEditor ¶¨ÒåÁËÔª¼þ±à¼­Æ÷ÐèҪʵÏֵĽӿڣº
  IComponentEditor = interface
    ['{ECACBA34-DCDF-4BE2-A645-E4404BC06106}']
    procedure Edit;
      Ë«»÷Ôª¼þʱ´¥·¢
    procedure ExecuteVerb(Index: Integer);
      Ö´ÐÐÒ»¸ö×Ô


Ïà¹ØÎĵµ£º

ÈçºÎÈÃDelphiµ÷ÓÃÍⲿ³ÌÐò²¢µÈ´ýÆäÔËÐÐÐÅÏ¢£¨Èç½áÊø£©

º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......

unicodeÓëGB2312ת»»µÈDelphiº¯Êý


{ º¯Êý : RESULTSTRING = HexToBin(HEXSTRING)
{ Ä¿µÄ : °ÑÊ®Áù½øÖÆ×Ö·û´®×ª»»Îª¶þ½øÖÆ×Ö·û´®
{
{===============================================================}
{ º¯Êý : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪÕûÊý
{==================================================== ......

DELPHIÃæÏò¶ÔÏó²Î¿¼


Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢  ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊε ......

Delphi³£ÓÿؼþÃüÃû¹æ·¶

 ³£ÓÿؼþÃüÃûǰ׺
¿Ø¼þÀàÃû
ǰ׺
TFormµÈ´°ÌåÀà 
frm
TButton, TSpeedButtonµÈËùÓеİ´Å¥Àà 
btn
TCheckBoxµÈËùÓеļì²é¿ò 
chk
TRadioButtonµ¥Ñ¡°´Å¥Àà
rdo
TListBoxµÈËùÓеÄÁбí¿òÀà 
lst
TPanelµÈËùÓеÄÃæ°åÀà
pnl
TLabel, TStaticTextµÈËùÓÐÓÃÀ´ÏÔʾµÄ±êÇ©Àà 
lbl
TE ......

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ