Delphi ×é¼þ¿ª·¢½Ì³ÌÖ¸ÄÏ£¨3£©×é¼þ×¢²á
ÔÚÉÏһƪÖУ¬ÎÒÃǼòµ¥µÄʵÏÖÁËÒ»¸ö¶ÔDelphi×ÔÉíµÄTEdit±à¼¿ò¿Ø¼þµÄÒ»¸öÀ©³ä£¡µ«ÊÇÎÒÃDz¢²»ÄÜÏñDelphi×Ô¼ºµÄTEditÒ»Ñù£¬Äܹ»
ÔÚÉè¼Æ×´Ì¬Ï½øÐÐÉè¼Æ£¬¶øÊǷǵÃÒª×Ô¼ºÊÖ¶¯´´½¨¿Ø¼þ£¬È»ºó²ÅÄÜʹÓá£Õâ¸öËäȻ˵ҲÊÇ×é¼þ£¬µ«ÊÇȴʧȥÁË×é¼þµÄ¿ÉÉè¼ÆµÄ·½±ãÐÔ£¬½ö½ö¿É×÷Ϊһ¸öÀà¿âÀ´Ê¹Óá£
ÏÖÔÚÎÒ¾ÍÀ´½éÉÜһϣ¬ÈçºÎÈÃÕâ¸ö×é¼þ×¢²áµ½IDEÉÏ£¬È»ºóÈÃÄãÄܹ»ÔÚÉè¼Æ×´Ì¬Ï¿ÉÒÔÉè¼ÆÊ¹Óá£
ÔÚ½²×¢²á×é¼þµÄʱºò£¬ÎÒÃÇÐèÒªÏÈÃ÷°×DelphiÖеİüµÄ¸ÅÄÕâÀïÎҾͲ»×ö˵Ã÷ÁË£¬²»Çå³þµÄ£¬¿ÉÒÔµ½CnpackÍøÕ¾È¥Á˽âÕâ·½ÃæµÄ֪ʶ
¡£ÔÚ×¢²á×é¼þʱ£¬¾ÍÐèÒªÒ»¸öÉè¼ÆÆÚ¼äµÄ°üÎļþ£¬È»ºó½«ÎÒÃÇÉÏ´Îн¨µÄEditµÄÄǸöµ¥ÔªÎļþÌí¼Óµ½°üÖС£Ê×ÏÈ£¬ÎÒÃÇн¨Ò»¸ö°üÎļþ£¬È»ºóÌí¼Óµ¥ÔªÎļþ£¬¾ßÌå²Î¿¼ÈçÏ£º
´ÓͼÉϵIJÙ×÷¿ÉÒÔ¿´µ½£¬ÎÒÏÈн¨ÁËÒ»¸öÃû×Ö½Ð×öTestPackageµÄ°ü£¬È»ºó½«Edit1.pasµÄµ¥ÔªÎļþÌí¼Óµ½Õâ¸ö°üÀïÃæÁË£¬Ö®ºó±àÒ룬°²
×°ÁËÖ®ºó£¬¾Í½«¿Ø¼þÏÔʾÔÚStandardÄǸö×é¼þÀ¸ÖÐÁË£¬ÀïÃæÓÐÒ»¸öTEdit1µÄ×é¼þ£¬ÄǸö¾ÍÊÇÎÒÃÇ´ÓTEdit¼Ì³Ð¹ýÀ´µÄÐÂ×é¼þ£¡È»ºóÔÙ¿´ÊôÐÔ±à¼
Æ÷ÖоͶàÁËAlignmentÕâ¸öÊôÐÔ£¬ÉèÖÃËü£¬¾ÍÄÜÉèÖÃÎÄ×ÖµÄ¶ÔÆë·½Ê½ÁË¡£
ºÃÁË£¬µ½´ËΪֹ£¬Õâ¸ö¼òµ¥×é¼þ¾Í×¢²áÍê³ÉÁË£¬¿ÉÄÜÓÐÈ˲»Á˽⣬¾Í½¨Á¢Ò»¸ö°ü£¬±àÒë°²×°£¬¾ÍÄܽ«×é¼þ×¢²áµ½IDEµÄ×é¼þÀ¸ÖÐÈ¥Âð£¿Êµ¼ÊÉϵ±È»²»ÊÇ×ö¸ö°²×°°ü
±àÒëһϾÍÍêÁ˵ġ£»¹¼ÇµÃ£¬ÔÚÉÏһƪÖУ¬ÎÒ×ʼÓÃ×é¼þ±àдÏòµ¼×öÁËʲôÂð£¿ÎÒÑ¡ÔñÁ˽«×é¼þ°²×°µ½StandardÄǸöÀ¸ÉÏ¡£ÓÐÐĵÄÈË´ò¿ª
Eidt1.pas¿ÉÄܾͻᷢÏÖÔÚEdit1.pasÖÐÓÐÒ»¸ö×¢²áµÄ¹ý³ÌΪ
procedure
Register;
implementation
procedure
Register;
begin
RegisterComponents(
'
Standard
'
, [TEdit1]);
end
;
Õâ¸öRegister¾ÍÊÇ×é¼þ×¢²áµÄ¹ý³Ì£¬°ü»á×Ô¶¯µ÷Óõģ¬×¢²á¹ý³ÌÖе÷ÓÃÁËRegisterComponentsÕâ¸ö¹ý³Ì
Õâ¸ö¹ý³ÌµÄµÚÒ»¸ö²ÎÊýÖ¸¶¨Òª×¢²áµ½IDEµÄÄĸö×é¼þÃæ°å£¨Èç¹ûIDE×é¼þÃæ°åÖÐûÓÐÄã¸ø¶¨µÄÕâ¸öÖµ£¬Delphi»á×Ô¶¯Ìí¼ÓÒ»¸öеÄ×é¼þÃæ°å£©£¬²ÎÊý¶þÖ¸¶¨µÄÊÇҪע²áµ½IDEµÄ×é¼þ¶ÔÏóÀàÊý×é¡£
ÁíÍ⣬ÕâÀïÒªÌá³öÐèҪעÒâµÄÒ»µã¾ÍÊÇ£¬ËäÈ»Delphi±¾ÉíÊDz»Çø·Ö
´óСдµÄ£¬µ«ÊǼǵÃÕâ¸ö×é¼þ×¢²áµÄ¹ý³ÌµÄRegister±ØÐëÊÇÕâ¸öÑù×Ó£¬¶ø²»Äܱä³ÉСдregisterÕâÑù£¬·ñÔò£¬×é¼þ¾Í×¢²á²»ÉÏÈ¥Á˹þ£¬Í¬Ê±£¬×¢
Ò⣬ÎÒÔÚÇ°Ãæ¸øTEdit1µÄÐÂÊôÐÔAlignmentµÄÉùÃ÷ÊÇ·ÅÔÚPublishedÕâ¸öÓòÖеģ¬ÕâÊÇÒòΪҪÏëÔÚIDEÉè¼ÆÆÚ»·¾³Äܹ»¿´µ½Õâ¸öÊôÐÔ£¬¾Í
±ØÐë·ÅÔÚPublished
Ïà¹ØÎĵµ£º
DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
X: Integer;
begin
X : ......
ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©
ÓÉÔÚWIN32²Ù×÷ϵͳÖнûÖ¹Ó¦ÓóÌÐòÏóDOSÖÐÄÇÑùÖ±½Ó·ÃÎʼÆËã»úÓ²¼þ£¬Òò´Ë£¬ÎÞ·¨ÏóÒÔǰÄÇÑù²ÉÓÃÖж϶Áд´®¿Ú¡£µ«ÊÇÔÚWIN32ÖÐÎÒÃǿɷ¢²ÉÓÃÁ½ÖÖ·½·¨·ÃÎÊ´®¿Ú£º1¡¢Ê¹ÓÃVBÖеÄMSCOMM´®¿Ú¿Ø¼þ£»2¡¢²ÉÓÃAPIº¯Êý£¬±¾ÎÄÖ÷Òª½éÉܲÉÓÃAPIº¯ÊýʵÏÖ´®¿ÚͨѶ¡£
ÓÉÓÚWM_COMMNOTIFYÏûÏ¢Òѱ»È¡Ïû£¬¹Ê±¾ÎÄ×Ô¶ ......
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......
Delphi UÅ̲åÈ벦³ö¼ì²â£º
1¡¢Ð½¨¹¤³Ì£»
2¡¢ÔÚform1ÉÏ·ÅÒ»¸öLabel£»
3¡¢¶¨ÒåÒ»¸ö˽Óйý³Ì
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
ÍêÕû´úÂëÈçÏ£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics ......
ÉÏһƪ£¬½éÉÜÁË×é¼þ¿ª·¢µÄÒ»°ã¸ÅÊö£¬ÒÔ¼°×é¼þÀà²ã´Î½á¹¹µÄ¸÷¸öÀàµÄ´óÖÂÐÅÏ¢£¡ÏÖÔھͿªÊ¼Í¨¹ýʵÀý½øÐÐÀ´¼òµ¥µÄ½²ÊöÒ»ÏÂÒ»°ã×é¼þµÄ¿ª·¢¹ý³Ì£¡ÎÒÕâÀïÏȲÉÓÃ×î
»ù±¾µÄ·½Ê½À´´´½¨Ò»¸ö×é¼þ£¡Ò²¾ÍÊÇʹÓÃDelphi×Ô¼ºµÄ×é¼þ¿ª·¢Ïòµ¼À´½¨Á¢Ò»¸öеÄ×é¼þ¡£ÔÚÕâÀÎÒÒÔÀ©³äTEditΪÀý½øÐн²½â¡£
ÄÇôÊ×ÏÈ£¬Òª½éÉܵľÍÊÇ ......