Delphi ActiveX FormµÄʹÓÃʵÀý
Delphi ActiveX FormµÄʹÓÃʵÀý
By knityster
1. ActiveX¿Ø¼þ¼ò½é
ActiveX¿Ø¼þÒ²¾ÍÊÇÒ»°ãËù˵µÄOCX¿Ø¼þ£¬ËüÊÇActiveX¼¼ÊõµÄÒ»²¿·Ö¡£
ActiveX¿Ø¼þ¿ÉÒÔ±»¼¯³Éµ½ºÜ¶àÖ§³ÖActiveXµÄÓ¦Óõ±ÖÐÈ¥£¬»òÕßÖ±½ÓÓÃÀ´À©Õ¹Ó¦ÓõŦÄÜ£¬ÕâЩ֧³ÖActiveXµÄÓ¦ÓðüÀ¨C++ Builder¡¢Delphi¡¢Visual dBASE¡¢ Visual Basic¡¢Visual C++¡¢Internet Explorer¡¢Netscape NavigatorµÈ¡£
¼òµ¥µÄ˵£¬ActiveX¼¼Êõ¿ÉÒÔʹ¶àÖÖ±àÒëÆ÷ÖÐÖÚ¶àµÄ¿Ø¼þµÃµ½»¥Ó㬱ÈÈç˵£ºÎÒ¿ÉÒÔ½«DelphiÖеĿؼþ´ò°üΪActiveX¿Ø¼þºóÈ»ºó¼ÓÔØµ½Visual C++ÖнøÐÐʹÓã¬ÕâÑùÔÚVCÖÐÒ²¿ÉÒÔʹÓÃDelphiÖеÄÕâЩ¿Ø¼þÀ´ÊµÏÖÏàÓ¦µÄ¹¦ÄÜÁË¡£
2. ActiveX¿Ø¼þÏà¹ØÖªÊ¶
ÔÚDelphiÖУ¬Ò»¸öActiveX¿Ø¼þÓÉÈçϼ¸¸ö²¿·Ö×é³É£ºVCL(¿ÉÊÓ»¯¹¹¼þ¿â)¿Ø¼þ¡¢ÊôÐÔ¡¢·½·¨¡¢Ê¼þ£¬ÒÔ¼°Ò»¸ö»òÕß¶à¸öÏà¹ØµÄÀàÐͿ⡣
2.1¡¢VCL¹¹¼þ
ÔÚDelphiÖУ¬Ò»¸öActiveX¿Ø¼þÊÇÓÉÒ»¸ö»òÕß¶à¸öVCL¹¹¼þ¾¹ý°ü×°ÒÔºóµÃµ½µÄ¡£ËùÒÔ£¬ÒªÊ¹ÓÃDelphiÀ´¿ª·¢ActiveX¿Ø¼þ£¬±ØÐëÏȵÿª·¢³ö»òÕßÑ¡ÔñÒª½øÐаü×°µÄVCL¹¹¼þ¡£Ò²ÕýÊÇÓÉÓÚÕâ¸öÔÒò£¬ÎÒÃÇ¿ÉÒÔ½«DelphiÀï´óÁ¿ÓÅÐãµÄVCL¹¹¼þ°ü×°³ÉActiveX¿Ø¼þ£¬´Ó¶ø¿ÉÒÔÔÚ±ðµÄ²»Äܹ»Ö±½ÓʹÓÃVCL¹¹¼þµÄ¿ª·¢¹¤¾ß(ÈçVisual Basic¡¢Visual C++)ÀïÒ²Äܹ»Ê¹Óõ½ÕâЩ¿Ø¼þÀ²£¡
µ«ÊÇ£¬ÔÚDelphiÀï¿ÉÒÔÓÃÀ´×öActiveX¿Ø¼þµÄVCL¹¹¼þ±ØÐëÊÇTWinControlµÄºó´ú¡£Èç¹ûÏëÓÃÒ»¸öTGraphiControlµÄ×ÓÀà×öActiveX¿Ø¼þ£¬ÔÚ´ó¶àÊýÇé¿öÏÂÖ»ÐèÒª°ÑËüµÄ»ùÀà±äΪTCustomControl¼´¿É¡£ÓеÄVCL¹¹¼þÊDZ»×¢²á³É·ÇActiveX¿Ø¼þµÄ£¬ÀýÈç EditControl£¬ÕâЩ¿Ø¼þÒ²²»ÄÜ×öActiveX¿Ø¼þ¡£
2.2¡¢ÀàÐÍ¿â
¡¡¡¡ÀàÐÍ¿â°üº¬Á˿ؼþµÄÀàÐͶ¨ÒåÐÅÏ¢£¬ÌṩÁ˱Ƚӿڸü¶àµÄÏêϸÐÅÏ¢£¬ÊǿؼþÏòËüµÄËÞÖ÷³ÌÐòÌṩ·þÎñÐÅÏ¢µÄÒ»ÖÖ;¾¶¡£ÀàÐÍ¿âµÄÄ¿µÄÊÇΪÆäËûÓ¦Óúͱà³Ì¹¤¾ßÌṩ¹ØÓÚËü°üº¬µÄ¹¹¼þ¶ÔÏóµÄÐÅÏ¢¡£¿ª·¢ActiveX¿Ø¼þʱ£¬Delphi°ÑÀàÐÍ¿âÐÅÏ¢´æÈëÒ»¸ö.TLBÎļþÖм°Ò»¸ö¶ÔÓ¦µÄPascalÎļþ.res(.TLBÎļþµÄPascalÓïÑÔ°æ±¾)£¬±àÒëʱÀàÐͿ⽫×÷Ϊ×ÊÔ´Á´ÈëDLL»òÕßEXEÖС£
ÀàÐÍ¿âµÄÔªËØ°üÀ¨£º
(1)ÀàÐÍ¿âÐÅÏ¢£º°üÀ¨ÀàÐÍ¿âµÄ×ÜÌåÐÅÏ¢ºÍÌØÕ÷¡¢µ±Ç°ÀàÐÍ¿âÒýÓÃµÄÆäËüÀàÐÍ¿âÐÅÏ¢£»
(2)¹¹¼þÀࣺ´ú±íÕû¸öActiveX¿Ø¼þ£¬°üº¬ÁËÌṩ¸ø¿Í»§Ó¦ÓõĽӿڣ»
(3)½Ó¿ÚÊôÐԺͷ½·¨¡¢Ê¼þ£»
(4)ö¾ÙÀàÐÍ£ºÒ»ÖÖÓÃ×÷Êý¾ÝÀàÐ͵ÄÏà¹Ø³£Á¿£¬¿ÉÒÔÓÃÔÚÀàÐÍ¿âµÄÆäËûµØ·½¶¨ÒåÊôÐԺͷ½·¨¡£
ͼ1 ÀàÐÍ¿â±à¼Æ÷
¡¡¡¡DelphiÌṩÁËÒ»¸öÀàÐÍ¿â±à¼Æ÷£¬ÓÃÓÚ¹Û²ì»òÐÞ¸ÄÀàÐͿ⣬¼ûͼ1 (ÔÚDelphiÖÐÑ¡ÔñFile->ope
Ïà¹ØÎĵµ£º
º¯ÊýÒ»£º
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
ÓÐʱÐèҪʹÓÃ͸Ã÷¿Ø¼þÓÃÓÚ²¶»ñÊó±êÏûÏ¢
1.µ÷ÓÃWindows2000,xpеÄAPIº¯ÊýʵÏÖÕâÒ»¹¦ÄܵĹý³Ì¡£Ê¹ÓÃSetLayeredWindowAttributes
2.Ö±½ÓÉèÖÿؼþµÄalphablend,alphablendvalue£¬¼ä½Óµ÷ÓÃÉÏÊöapi.
3.ʹÓÃTStaticText¿Ø¼þ
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢ ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊε ......
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 ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼Æ÷£¬¸Ð¾õ±ÈÊôÐÔ±à¼Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEdit ......