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¿ª·¢Ò»ÖÖÓ¦ÓÃϵͳµÄ¼¯³É¿ª·¢»·¾³¡£ÆäÖÐÐèҪʵÏÖÒ»¸ö×Ö·û´®²ð·Ö¹¦ÄÜ£¬·½·¨»ù±¾ÔÐÍÓ¦¸ÃÊÇ£º
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
Ä¿µÄÊÇʹÓÃ×Ö·ûch²ð·Ösrc×Ö·û´®£¬°Ñ²ð·ÖµÄ½á¹û·ÅÈëstringListÖС£ÀýÈ磺src:='abc|def|ghi'; ch='|'µÄʱºò£¬·µ»ØµÄstringLis ......
Ò»°ãÎÒÃÇÔÚDelphiÖнøÐÐͼÏñ´¦Àíʱ²ÉÓÃPixelsÏñËØµã¸³ÖµµÄ·½·¨£¬Delphi´úÂëÈçÏ£º
var
x,y:Integer;
cColor:TColor;
begin
for y:=0 to Image1.Height-1 do
for x:=0 to Image1.Width-1 do
cColor:=Image1.Canvas.Pixels[i,j];
end;
µ«ÊÇÕâÖÖ·½·¨Óиöȱ ......
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......
Ò»¸öºÜ¼òµ¥µÄÎÊÌ⣬µ«ÎÒÆ¾ÎÒѧϰC++/VCÒ»Äê¶à£¬½Ó´¥DelphiµÄʱ¼äÒ²²»¶ÌÁË£¬µ«ÈÔȻд²»³öÀ´¡£
±¾À´ÒÔΪ£¬²»¾ÍÊǽ«Form1.ShowºÍForm1.Hideô£¬µ«È´¾ÍÊÇ´ïµ½²»µ½×Ô¼ºÏëÒªµÄ½á¹û
Õâ¸öÎÊÌâµ¹²»ÓÃ×÷ÉîÈëÑо¿ÁË£¬µ½ÊÇÈÃÎÒ·¢ÏÖ£¬DelphiÒ²²»ÊÇÐÅÊÖÕªÀ´£¬Ê²Ã´¶¼ÊÇÄÇôÈÝÒ׵ģ¬ÒÔΪ×Ô¼ºÓеã¶ùVCµÄµ××Ó£¬¾ÍС¿´ÁËDelphi¡£
×î½üÒ»¶Îʱ ......
ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......