|
¸ÄÔìhintµÄÊä³ö·½Ê½ |
|
| http://www.aguso.com¡¡2007-11-18 03:17:33¡¡¹ÈËÑIT·þÎñ |
|
|
|
DelphiΪÿ¸ö¿ÉÊÓ¹¹¼þ£¨¶ø·Ç¿ìËÙ°´Å¥×¨Êô£©¶¼ÌṩÁËHint ¼°ShowHintÌØÐÔ£¬ÆäÖÐHintÊôÐÔÖ¸¶¨Îı¾ÌáʾºÐÖеÄÎı¾£¬ ¶øShowHintÊôÐÔÔò¾ö¶¨Êó±êÖ¸Ïò¹¹¼þʱÊÇ·ñÏÔʾÎı¾ÌáʾºÐ£¬ µ±ShowHintֵΪTrueʱ£¬ÏÔʾÎı¾ÌáʾºÐ¡£Óû§¿ÉÔÚ¶ÔÏó¼à ÊÓÆ÷£¨ObjectInspector£©µÄÊôÐÔÀ¸ÖÐÉèÖûòÔÚ³ÌÐòÖÐÐÞ¸ÄHint ¼°ShowHintÊôÐÔ¡£ ³ý´ËÖ®Í⣬Delphi»¹ÔÚÀàTApplicationÖÐÌṩÁË HintColor¡¢HintPause¡¢HintHidePause¡¢HintShortPause¼¸ ¸öÊôÐÔÀ´¿ØÖÆÎı¾ÌáʾºÐµÄÊä³ö·½Ê½¡£ Ò»°ãÀ´Ëµ£¬HintColor¡¢HintPause¡¢HintHidePause¡¢ HintShortPauseͨ³£ÔÚFormµÄOnCreateʼþÖÐÉ趨ËüÃǵÄÖµ £¨ÈçÓÐÐèÒªµÄ»°£©£¬ÈçÒÔϵÄÒ»¶Î³ÌÐò¡£ ProcedureTMainForm£®FormCreate£¨Sender£ºTObject£©£» begin Application£®HintPause£º¦ª0£»£ûʹÎı¾ÌáʾºÐÁ¢¼´³öÏÖ£ý Application£®HintPause£º¦ªclBlue£»£ûÒÔÀ¶É«Ð¡·½¿òµÄ ·½Ê½³öÏÖ£ý Application£®HintHidePause£º¦ª10000£»£ûÑÓ³¤Í£Áôʱ¼ä Ϊ10Ãë£ý Ϊ10Ãë£ý Application£®HintShortPause£º¦ª100£» end£» ÁíÍ⣬ÔÚ±à³ÌÖУ¬ÎÒÃÇ»¹¿ÉÒÔͨ¹ýTApplicationµÄOnHint ʼþ»ñÈ¡Êó±êÖ¸Ïò¹¹¼þµÄHintÎı¾¡£ ÊÂʵÉÏ£¬DelphiÌṩµÄÎı¾ÌáʾºÐÊä³ö·½¿ò¡¢Îı¾×ÖÐͶ¼ ̫С£¬¼È²»ÃÀ¹ÛÒ಻Ò׿´Çå¡£ÖµµÃÇìÐÒµÄÊÇ£¬Delphi2£®0°æÌá ¹©ÁËÈ«²¿¹¹¼þµÄÔ´´úÂ룬ÎÒÃÇ¿ÉÒÔͨ¹ý¶ÔÀàTApplicationµÄ Ô´Âë×÷һЩСÐ޸ģ¬Ôö¼ÓÒ»¸öHintFontµÄÊôÐÔ£¬¼´¿ÉÏóÐÞ¸Ä HintColorÒ»ÑùÀ´ÐÞ¸ÄÎı¾ÌáʾºÐµÄ×ÖÌå¡¢×ÖÐÍ´óСµÈ¡£ TApplicationÊÇÔÚFormsµ¥ÔªÀﶨÒåµÄ£¬Òò´ËÈÃÎÒÃÇ´ò¿ª Forms£®pasµ¥ÔªÎļþÀ´×÷ÒÔÏÂһЩÐ޸ģº ProcedureSetHintColor£¨Value£ºTColor£ý£» ProcedureSetHintFont£¨Value£ºTFont£©£» £û1997£®04£®19Mynewidea£ý PropertyHintColor£º TColorreadFHintColorWriteSetHintColor£» PropertyHintFont£ºTFontwriteSetHintFont£» £û1997£®04£®19Mynewidea£ý ProcedureTApplication£®SetHintColor£¨Value£ºColor£©£» ÉÏÔö¼ÓÒ»¸ö¹ý³Ì £û1997£®04£®19Mynewidea£ý ProcedureTApplication£®SetHintFont£¨Value£ºTFont£©£» beginif£¨Value¦©¦«nil£©and£¨FHinWindow¦©¦«nil£©then FHintWindow£®Canvas£®Font£º¦ªValue£» end£»£û1997£®04£®19Mynewidea£ý ±ðÍüÁËÔÚÐÂÔöµÄÓï¾äÅÔ×÷һЩ±ØÒªµÄ×¢ÊÍ£¬ÈçÉÏÃæµÄ £û1997£®04£®19Mynewidea£ý£¬¿ÉÒÔºÜÇå³þµØÖªµÀÄÄЩÓï¾äÊÇÄã ×Ô¼º¼Ó½øÈ¥µÄ¡£ ½«Ð޸ĺóµÄForms£®pas´æÅÌ£¬È»ºóÖØ½¨¿âÎļþ£¬ÒÔºóÔÚ ÄãµÄ¿âÎļþÀÀàTApplication¾Í¶àÁËÒ»¸öÊôÐÔHintFont£¬ Äã¾Í¿ÉÒÔºÜÇáÒ×µÄͨ¹ýHintFontÊôÐÔÀ´ÐÞ¸ÄÎı¾ÌáʾºÐµÄ×Ö Ìå¡¢×ÖÐÍ´óСÁË£¬ÈçÒÔÏÂÒ»¶Î³ÌÐò£º ProcedureTMainForm£®FormCreate£¨Sender£ºTObject£©£» Var NewHintFont£º¦ªTFont£®Create£» begin NewHintFont£º¦ªTFont£®Create£» NewHintFont£®Name£º¦ª¡ä¿¬Ìå£GB2312¡ä£»£ûÉèÖÃ×ÖÌåΪ ¿¬Ìå£ý NewHintFont£®Size£º¦ª12£»£ûÉèÖÃ×ÖÐÍ´óСΪ12£ý Application£®HintFont£º¦ªNewHintFont£» end£» ´ËÍ⣬Delphi»æÖÆÎı¾ÌáʾºÐÊÇÔÚÀàTHintWindowµÄ·½·¨ ActivateHintÖÐͨ¹ýWindowsAPI×ÊÔ´º¯ÊýSetWindowPosÀ´Êµ r> ActivateHintÖÐͨ¹ýWindowsAPI×ÊÔ´º¯ÊýSetWindowPosÀ´Êµ Ïֵģ¬Õâ¶Î´úÂëÔÚControls£®pasµ¥ÔªÎļþÀÓÐÐËȤµÄ¶ÁÕß ¿ÉÒÔ½øÒ»²½ÐÞ¸ÄÕâ¶Î´úÂëÒÔ»æÖÆÆäËûÈÎÒâÐÎ×´£¨ÈçÍÖÔ²¡¢Ô²µÈ£© ¶ø²»½ö½öÊǾØÐÍ·½¿òµÄÎı¾ÌáʾºÐ£¡µ«»òÐí×îºÃµÄ·½·¨ÊÇ´ÓÀà THintWindow¼Ì³ÐÏÂÀ´Ò»¸öÐÂÀ࣬²¢ÖØÔØActivateª²Hint·½ ·¨£¬È»ºóÔÚÓ¦ÓóÌÐò¿ªÊ¼´¦¸ø±äÁ¿HintWindowClassÖ¸ÅÉÒ»¸ö ÐÂÀàʵÀý (Õª×ÔBBS ˮľÇ廪վ) ±¾ÎĵØÖ·£ºhttp://www.newbooks.com.cn/info/4387.html
|
| |
|
|