ȨÏÞ¿ØÖÆ(delphi actionlist)
ȨÏÞ¿ØÖÆ(delphi TActionList·½°¸)
ÔÚÈí¼þ¿ª·¢ÖУ¬ÎªÈí¼þ¼ÓÈëȨÏÞ¿ØÖƹ¦ÄÜ£¬Ê¹²»Í¬µÄÓû§Óв»Í¬µÄʹÓÃȨÏÞ£¬ÊǷdz£ÖØÒªµÄÒ»ÏÄÜ£¬
ÓÉÆäÔÚ¿ª·¢Êý¾Ý¿â·½ÃæµÄÓ¦Óã¬ÕâÏÄܸüÎªÖØÒª¡£
µ«ÊÇ£¬ÒªÎªÒ»¸öÓ¦ÓüÓÈëÈ«ÃæµÄȨÏÞ¿ØÖƹ¦ÄÜ£¬ÓÖÔõÑùʵÏÖÄØ£¿
´ó¼ÒÖªµÀ£¬ÏÖÔÚµÄÓ¦Óã¬Ò»°ã¾ùÒԲ˵¥·ÃÎʹ¦ÄܵÄÐÎʽ³öÏÖ£¬°´ÕÕ³£¹æµÄ×ö·¨£¬
Ö»ÒªÈÃ×¢²á½øÈëÓ¦ÓõIJ»Í¬Óû§£¬¿ÉÒÔ·ÃÎʲ»Í¬µÄ¹¦Äܲ˵¥£¬´Ó¶øÊµÏÖ¹¦ÄÜȨÏ޵ĿØÖÆ£¬
µ«ÊÇ£¬ÓÐÕâÑùÒ»¸öÎÊÌ⣬´ËÖÖ·½·¨±ãÎÞÄÜΪÁ¦£¬ÏÖÔÚµÄÓ¦ÓÃÈí¼þ£¬ÎªÁËÌá¸ßÈí¼þµÄÒײÙ×÷ÐÔ£¬
ͬһ¹¦ÄÜ¿ÉÄÜÓжàÖÖ²»Í¬µÄ·ÃÎÊ·½Ê½£¬È繤¾ßÌõ£¬ÓÒ¼ü²Ëµ¥µÈ£»
ͬÑù£¬Í¬Ò»¸ö¹¦ÄÜ£¬Ò²¿ÉÄÜÔÚÈí¼þµÄ²»Í¬µØ·½±»µ÷Ó㬶ø²»½ö½ö±»ÏÞÖÆÎªÓóÌÐòµÄÖ÷²Ëµ¥À´µ÷Óã¬
ÕâÑù£¬²ÅÄܱ£Ö¤Ó¦ÓõÄÒ×ÓÃÐÔ¡£
дµ½Õ⣬ÎÊÌâÒѾ·Ç³£Çå³þ£¬¶ÔÓÚÒªÏÞÖÆµÄÈí¼þ¹¦ÄÜ£¬½öͨ¹ýÒ»´Î´úÂëÉè¼Æ£¬
ÎÞÂÛÔÚÕû¸öÓ¦ÓõÄÈκεط½»òͨ¹ýºÎÖÖÐÎʽµ÷Óô˹¦ÄÜ£¬¶¼Äܱ»¹¦ÄÜȨÏÞËùÏÞÖÆ¡£
±ÊÕßÀûÓÃDelphiƽ̨×÷Ó¦Óÿª·¢Ê±£¬Í¨¹ýDelphi7ÌṩµÄVCL¿Ø¼þ½â¾öÁËÕâÒ»ÎÊÌâ¡£
ÔÚÁ˽âÈçºÎʵÏÖ¹¦ÄÜȨÏÞ¿ØÖÆÖ®Ç°£¬µÃÏÈ¿´Ò»ÏÂDelphi7ÌṩµÄпؼþTActionList£¬
ͨ¹ýTActionList,Ó¦ÓóÌÐò¿ÉÒÔͳһ¹ÜÀíÆäTAction,ÕâÀïµÄAction,¿ÉÒÔÀí½âΪӦÓóÌÐòµÄ¹¦ÄÜ¡£
ÔÚÓ¦ÓõÄÉè¼ÆÆÚ¼ä£¬¿ÉÒÔͨ¹ýTActionList±à¼Æ÷½«¹¦ÄÜ(Action)¼ÓÈëTActionList,
½«Action¼ÓÈëTActionListºó£¬¾Í¿ÉÄÜͨ¹ýObject InspectorÉèÖÃActionµÄÊôÐÔ»òΪÆä½¨Á¢Ê¼þ¾ä±ú¡£
ÔÚÕâÀÎÒÃÇ¿ÉÒÔÓÃActionµÄOnExecuteʼþ¾ä±úʵÏÖ¾ßÌåµÄ¹¦ÄÜ£¬ÈçÏ´úÂëÀ´ÏÔʾһ¸ö²Ù×÷´°Ì壺
procedure TfrmMain.SetUserExecute(Sender: TObject);
begin
¡¡frmUser.showModal;
end;
¡¡¡¡µ±ÒªÏÞ¶¨ÕâÒ»¹¦ÄÜʱ£¬¿ÉÄÜÀûÓÃTActionµÄEnabled,½«ÆäÉèΪFalse,´Ë¹¦ÄܶÔÓÚÓû§½«±»ÆÁ±Îµô£¬
Èç¹ûÒª´Ë¹¦ÄܶÔÓû§²»¿É¼û£¬Ôò¿ÉÒÔÉ趨VisibleΪFalse¡£
¡¡¡¡µ±³É¹¦ÄܵĽ¨Á¢ÁËTActionListºó£¬¿ÉÄÜÓÐÈËÎÊ£¬Èç¹ûʹÓÃÆäÖеÄAction£¬
ÔÚDelphi7ÖУ¬ÏóTButton¡¢TMenuItem¡¢TSpeedButton¡¢TRadioButtonµÈ¿Ø¼þ£¬¾ùÓÐÒ»¸öÊôÐÔAction,
ÕýÊÇͨ¹ýËü£¬ÎÒÃÇ¿ÉÒÔ½«Menu»òButtonÁ¬½Óµ½TActionListÖÐTAction,´Ó¶øÊµÏÖ¹¦Äܰ´Å¥»ò²Ëµ¥µÄ¹¦ÄÜ¡£
ÔÚÀí½âÁËDelphiÖеÄTActionList¼°TActionÖ®ºó£¬¾Í¿ÉÒÔ¿´¿´¹¦ÄÜȨÏ޵ľßÌåʵÏÖ·½·¨¡£
µÚÒ»²½£¬½¨Á¢Á½ÕÅ±í£¬Ò»ÕÅ±í´æ´¢Óû§ÐÅÏ¢£¬ÁíÒ»ÕÅ±í´æ´¢È¨ÏÞ¶¨Òå¡£
Óû§ÐÅÏ¢±íUser½á¹¹ÈçÏ£º
UserID(String/Óû§µÄIDºÅ£¬Îª±í¹Ø¼ü×Ö)
UserName(StringÓÃ
Ïà¹ØÎĵµ£º
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 ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼Æ÷£¬¸Ð¾õ±ÈÊôÐÔ±à¼Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEdit ......
ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»
......
Delphi ActiveX FormµÄʹÓÃʵÀý
By knityster
1. ActiveX¿Ø¼þ¼ò½é
ActiveX¿Ø¼þÒ²¾ÍÊÇÒ»°ãËù˵µÄOCX¿Ø¼þ£¬ËüÊÇActiveX¼¼ÊõµÄÒ»²¿·Ö¡£
ActiveX¿Ø¼þ¿ÉÒÔ±»¼¯³Éµ½ºÜ¶àÖ§³ÖActiveXµÄÓ¦Óõ±ÖÐÈ¥£¬»òÕßÖ±½ÓÓÃÀ´À©Õ¹Ó¦ÓõŦÄÜ£¬ÕâЩ֧³ÖActiveXµÄÓ¦ÓðüÀ¨C++ Builder¡¢Delphi¡¢Visual dBASE¡¢ Visual Basic¡¢Visual C++¡ ......