Delphi¿ª·¢ActiveXʹÓö¨ÒåµÄÊôÐÔ
Delphi¿ª·¢ActiveXʹÓö¨ÒåµÄÊôÐÔ,
¾ÍÊǶ¨ÒåÁíÒ»·½·¨À´²Ù×÷ÊôÐÔ
°ï¶¥
ΪʲôÕâ¶ùÎÞÈËÎʽòѽ£¿
Ö÷ÒªÊÇÎÊÌâÃèÊö²»Çå³þ
ÎÒÎʵÄÊÇActiveXÀïÃæ¶¨ÒåµÄÊôÐÔÔõôÔÚ×éÄÚ²¿Ê¹Ó㬱ÈÈ磺ÔÚÀï±ß¶¨ÒåÁËÒ»¸öÊôÐÔProperty£¬ÄÇôÔÚÒ»¸ö·½·¨ÀïÔõôʹÓÃÕâ¸öÊôÐÔ£¬Èç¶ÔËü½øÐмÓ1²Ù×÷¡£
ΪʲôûÈËÀíѽ£¿¶¼³ÁÏÂÈ¥ÁË
ÎÒÏë½áÌùÈö·Ö¶ù£¬¶¼Ã»ÓÐÈËÀ´½ÓÂð£¿
ÊôÐÔÓ¦¸Ã¶ÔÓ¦Ò»¸öÖмä±äÁ¿,Äã²Ù×÷Öмä±äÁ¿¾ÍÊÇÉèÖÃÊôÐÔ°É,ÀýÈç:
sProperty:WideString;
property Property: WideString read Get_Property write Set_Property;
function TxxFormX.Get_Property: WideString;
begin
Result := sProperty;
end;
procedure TxxFormX.Set_Property(const Value: WideString);
begin
sProperty := Value;
end;
ºÃÏñÖ»ÄÜÕâô×ö£¬ÎÒÊÇÕâôÓõģ¬Ö»ÄÜÕâÑù×ö²ÅÄÜÔÚ
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
ÇëÎÊdelphiÖеϲ¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£
¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......