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ÃæÏò¶ÔÏó²Î¿¼
¡¡¡¡³ÂÆæ 2005-07-21
¡¡¡¡Ò»¡¢ÀàºÍ¶ÔÏó
¡¡¡¡ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¡¡¡¡¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¡¡¡¡¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¡¡¡ ......
Delphi µÄ×Ö·û¼°×Ö·û´®[1] - string¡¢AnsiString¡¢WideString¡¢String[n]¡¢ShortString
2008-10-17 14:57:17
//×î³£ÓÃµÄ string
var
str: string; {¶¨Òå}
begin
str := 'ÍòÒ»'; {¸³Öµ}
ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//³¤×Ö·û´® AnsiString; ÔÚµ±Ç°°æ± ......
Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......
Ò»¸öºÜ¼òµ¥µÄÎÊÌ⣬µ«ÎÒÆ¾ÎÒѧϰC++/VCÒ»Äê¶à£¬½Ó´¥DelphiµÄʱ¼äÒ²²»¶ÌÁË£¬µ«ÈÔȻд²»³öÀ´¡£
±¾À´ÒÔΪ£¬²»¾ÍÊǽ«Form1.ShowºÍForm1.Hideô£¬µ«È´¾ÍÊÇ´ïµ½²»µ½×Ô¼ºÏëÒªµÄ½á¹û
Õâ¸öÎÊÌâµ¹²»ÓÃ×÷ÉîÈëÑо¿ÁË£¬µ½ÊÇÈÃÎÒ·¢ÏÖ£¬DelphiÒ²²»ÊÇÐÅÊÖÕªÀ´£¬Ê²Ã´¶¼ÊÇÄÇôÈÝÒ׵ģ¬ÒÔΪ×Ô¼ºÓеã¶ùVCµÄµ××Ó£¬¾ÍС¿´ÁËDelphi¡£
×î½üÒ»¶Îʱ ......