📄 howto_dayoftips.htm
字号:
<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>ÈçºÎÖÆ×÷tip of day</title><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body><center><b><span style=font-family: 宋体seriffont-size: 12pt>ÈçºÎÖÆ×÷ÈÕ»ýÔÂÀÛ</span></b></center><center><span style=font-family: 宋体seriffont-size: 9pt>Î÷°² <a href=mailto:delphifan@990.net>Áº Ã÷</a></span></center><hr><p><font color=#FF0000><b><span style=font-family: 宋体seriffont-size: 12pt>×¢Ò⣺</span></b></font><font color=#008000><span style=font-family: 宋体seriffont-size: 9pt>½ñºó£¬·²ÊÇÎÒÌṩµÄÔ´´úÂë¾ù²»¸½Í¼£¬Ô­ÒòºÜ¼òµ¥£º¿Õ¼äÒÔ¼°Ëٶȶ¼ÓÐÏÞÖÆ¡¢¶ÁÕߺÍÎÒ¶¼ÓÐÀ§ÄÑ¡£µ±È»£¬ÎªÁ˾¡¿ÉÄܵÄƽºâË«·½µÄ¡°ÀûÒæ¹Øϵ¡±£¬±¾ÈË×¼±¸Ìṩ³ÌÐòÔ´´úÂëÒÔ¼°³ÌÐòÓõ½µÄ´°ÌåµÄTEXTÎļþ£¬ÕâÑù£¬ÄãÖ»Ðè°ÑËûÃÇ¡°¸ãµ½¡±×Ô¼ºµÄÓ²ÅÌÉÏ£¬È»ºóÂýÌõ˹ÀíµÄ´ò¿ªDelphi£¬¾Í¿ÉÒÔ¾¡ÇéÏíÊÜ×÷Õß--Îҵġ°ÁÓÖʲúÆ·¡±ÁË£¡<br> ͬʱ£¬ÎÒµÄÔ´ÎļþÖеÄijЩעÊÍ£¨ÆäʵºÜ¶à^_^£©¿Ï¶¨ÄãÊDz»ÈÏʶµÄ£¬ÄÇô£¬ÇëÄãÔ­Á£¬²»¹ý´ó¶à¶¼ÊǺºÓïÆ´ÒôÒÔ¼°Ã»ÓÐÓï·¨µÄEnglish¡£ÔÚÏÂÔÚ´ËÏÈл¹ý¸÷λ¶ÁÕߣ¡</span></font></p><hr><p><b><span style=font-family: 宋体seriffont-size: 9pt><a href=tips_mine/howto_dayoftips.htm#%B3%CC%D0%F2%D4%B4%B4%FA%C2%EB>³ÌÐòÔ´´úÂë</a> <a href=tips_mine/howto_dayoftips.htm#%B4%B0%CC%E5TEXT%B4%FA%C2%EB>´°ÌåAs text´úÂë</a></span></b> <ul> <li><b><span style=font-family: 宋体seriffont-size: 9pt>³ÌÐòÔ´´úÂë</span></b></li> <li><a name=程序源代码></a><span style=font-family: 宋体seriffont-size: 9pt>unit Unit_DoYouKnow;<br> <br> interface<br> <br> uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,<br> Buttons, ExtCtrls,Registry;<br> <br> type<br> TOKRightDlg = class(TForm)<br> BitBtn1: TBitBtn;<br> BitBtn2: TBitBtn;<br> Panel1: TPanel;<br> Image1: TImage;<br> CheckBox1: TCheckBox;<br> Label1: TLabel;<br> Bevel1: TBevel;<br> Memo_book: TMemo;<br> Memo_Text: TMemo;<br> procedure BitBtn1Click(Sender: TObject);<br> procedure BitBtn2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br> <br> var<br> OKRightDlg: TOKRightDlg;<br> <br> implementation<br> <br> {$R *.DFM}<br> <br> procedure TOKRightDlg.BitBtn1Click(Sender: TObject);<br> Var ShowTipsDay:TRegIniFile;<br> begin<br> //¹Ø±Õ³ÌÐòǰдÈëÓû§Ð޸ĵÄÐÅÏ¢<br> showtipsDay:=TregIniFile.Create('software\µç»°¹ÜÀí\DayTips');<br> if CheckBox1.Checked then<br> showtipsDay.writeBool('ShowDayTipsOrNot','ShowTipsDayForm',true)<br> else<br> showtipsDay.writeBool('ShowDayTipsOrNot','ShowTipsDayForm',False);<br> <br> ShowTipsDay.Free;<br> close;<br> end;<br> <br> procedure TOKRightDlg.BitBtn2Click(Sender: TObject);<br> begin<br> Randomize;//Ëæ»úÈ¡Êý<br> Memo_text.Clear; //Clear ÏÈÇ°µÄÊý¾Ý<br> Memo_Text.Lines.Append(MEMO_Book.Lines[Random(memo_Book.lines.Count)]);<br> //Look Here!!×¢Ò⣺ÓÉÓÚTEXT¶ÔµÄÊÇBOOK<br> //ÖеÄÐУ¬Òò´ËBOOKÖеÄÐв»ÄÜÌ«³¤£¬·ñÔò<br> //ÔÚTEXTÖÐÏÔʾ²»Ï£¡£¡£¡<br> //^_^<br> //ÓÉÓÚFORMÉÏÓС°£¿¡±£¬Òò´ËÔÚǶÈëµ½ÔËÓÃ<br> //³ÌÐòÖÐʱ£¬ÒªÎªÖ®·ÖÅäHelpContext!!<br> end;<br> <br> end.</span></li></ul><ul> <li><b><span style=font-family: 宋体seriffont-size: 9pt>´°ÌåAs Text´úÂ룺</span></b></li> <li><a name=窗体TEXT代码></a><span style=font-family: 宋体seriffont-size: 9pt>object OKRightDlg: TOKRightDlg<br> Left = 230<br> Top = 219<br> Width = 383<br> Height = 248<br> ActiveControl = BitBtn2<br> BorderIcons = [biSystemMenu, biHelp]<br> Caption = 'ÈÕ»ýÔÂÀÛ'<br> Color = clBtnFace<br> Font.Charset = GB2312_CHARSET<br> Font.Color = clWindowText<br> Font.Height = -12<br> Font.Name = 'ËÎÌå'<br> Font.Style = []<br> Icon.Data = {<br> 0000010002002020100000000000E80200002600000010101000000000002801<br> 00000E0300002800000020000000400000000100040000000000800200000000<br> 0000000000000000000000000000000000000000800000800000008080008000<br> 0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00<br> 0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000<br> 00000000BBBBBBBB000000000000000000000BBBBBBBBBBBBBB0000000000000<br> 0000BBBBBBBBBBBBBBBB00000000000000BBBBBBBBBBBBBBBBBBBB0000000000<br> 0BBBBBBBBB0000BBBBBBBBB000000000BBBBBBBBB099990BBBBBBBBB00000000<br> BBBBBBBB09999990BBBBBBBB0000000BBBBBBBB0900000090BBBBBBBB00000BB<br> BBBBBB000BBBBBB000BBBBBBBB0000BBBBBBB00BBBBBBBBBB00BBBBBBB0000BB<br> BBBBB0BBBBBBBBBBBB0BBBBBBB000BBBBBBB0BBBBBBBBBBBBBB0BBBBBBB00BBB<br> 0000BBBBBBBBBBBBBBBB0000BBB00BBBBBB0BBBBBBBBBBBBBBBB0BBBBBB00BBB<br> BBBB0BBBBBBBBBBBBBB0BBBBBBB00BBBBBBB0BBBBBBBBBBBBBB0BBBBBBB00BBB<br> BBBBBBB00BBBBBB00BBBBBBBBBB00BBBBBBBBB0000BBBB0000BBBBBBBBB00BBB<br> BBBBBB0000BBBB0000BBBBBBBBB000BBBBBBBB0000BBBB0000BBBBBBBB0000BB<br> BBBBBB0000BBBB0000BBBBBBBB0000BBBBBBBB0000BBBB0000BBBBBBBB00000B<br> BBBBBBB00BBBBBB00BBBBBBBB0000000BBBBBBBBBBBBBBBBBBBBBBBB00000000<br> BBBBBBBBBBBBBBBBBBBBBBBB000000000BBBBBBBBBBBBBBBBBBBBBB000000000<br> 00BBBBBBBBBBBBBBBBBBBB00000000000000BBBBBBBBBBBBBBBB000000000000<br> 00000BBBBBBBBBBBBBB000000000000000000000BBBBBBBB0000000000000000<br> 0000000000000000000000000000FFF00FFFFF8001FFFE00007FFC00003FF800<br> 001FF000000FE0000007C0000003C00000038000000180000001800000010000<br> 0000000000000000000000000000000000000000000000000000000000008000<br> 00018000000180000001C0000003C0000003E0000007F000000FF800001FFC00<br> 003FFE00007FFF8001FFFFF00FFF280000001000000020000000010004000000<br> 0000C00000000000000000000000000000000000000000000000000080000080<br> 00000080800080000000800080008080000080808000C0C0C0000000FF0000FF<br> 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000<br> 0BBBBBB00000000BBBB00BBBB00000BBBB0990BBBB0000BBB000000BBB000BBB<br> 00BBBB00BBB00B700BBBBBB007B00BB70BBBBBB07BB00BBB700BB007BBB00BBB<br> B00BB00BBBB00BBBB00BB00BBBB000BBB00BB00BBB0000BBBBBBBBBBBB00000B<br> BBBBBBBBB00000000BBBBBB000000000000000000000F81F0000E0070000C003<br> 0000800100008001000000000000000000000000000000000000000000000000<br> 00008001000080010000C0030000E0070000F81F0000}<br> OldCreateOrder = True<br> Position = poScreenCenter<br> OnClose = FormClose<br> PixelsPerInch = 96<br> TextHeight = 12<br> object Bevel1: TBevel<br> Left = 9<br> Top = 8<br> Width = 260<br> Height = 177<br> end<br> object BitBtn1: TBitBtn<br> Left = 285<br> Top = 46<br> Width = 82<br> Height = 25<br> Cancel = True<br> Caption = '¹Ø±Õ'<br> TabOrder = 1<br> OnClick = BitBtn1Click<br> Glyph.Data = {<br> DE010000424DDE01000000000000760000002800000024000000120000000100<br> 0400000000006801000000000000000000001000000010000000000000000000<br> 80000080000000808000800000008000800080800000C0C0C000808080000000<br> FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333<br> 3333333333333333333333330000333333333333333333333333F33333333333<br> 00003333344333333333333333388F3333333333000033334224333333333333<br> 338338F3333333330000333422224333333333333833338F3333333300003342<br> 222224333333333383333338F3333333000034222A22224333333338F338F333<br> 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224<br> 33333338F83338F338F33333000033A33333A222433333338333338F338F3333<br> 0000333333333A222433333333333338F338F33300003333333333A222433333<br> 333333338F338F33000033333333333A222433333333333338F338F300003333<br> 33333333A222433333333333338F338F00003333333333333A22433333333333<br> 3338F38F000033333333333333A223333333333333338F830000333333333333<br> 333A333333333333333338330000333333333333333333333333333333333333<br> 0000}<br> NumGlyphs = 2<br> end<br> object BitBtn2: TBitBtn<br> Left = 285<br> Top = 8<br> Width = 82<br> Height = 25<br> Caption = 'ÏÂÒ»Ìõ'<br> Default = True<br> ModalResult = 4<br> TabOrder = 0<br> OnClick = BitBtn2Click<br> Glyph.Data = {<br> 76010000424D7601000000000000760000002800000020000000100000000100<br> 0400000000000001000000000000000000001000000010000000000000000000<br> 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000<br> FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333<br> 33333FF3333333333333447333333333333377FFF33333333333744473333333<br> 333337773FF3333333333444447333333333373F773FF3333333334444447333<br> 33333373F3773FF3333333744444447333333337F333773FF333333444444444<br> 733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999<br> 999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC<br> 33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333<br> 333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333<br> 33333777333333333333CC333333333333337733333333333333}<br> NumGlyphs = 2<br> end<br> object Panel1: TPanel<br> Left = 12<br> Top = 12<br> Width = 253<br> Height = 169<br> BevelInner = bvRaised<br> BevelOuter = bvNone<br> Color = clBlack<br> TabOrder = 3<br> object Image1: TImage<br> Left = 2<br> Top = 2<br> Width = 32<br> Height = 32<br> AutoSize = True<br> Picture.Data = {<br> 055449636F6E0000010002002020100000000000E80200002600000010101000<br> 00000000280100000E0300002800000020000000400000000100040000000000<br> 8002000000000000000000000000000000000000000000000000800000800000<br> 0080800080000000800080008080000080808000C0C0C0000000FF0000FF0000<br> 00FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000FFF<br> 0000000000000000000000000000DDDDD00000000000000000000000000D0FFF<br> 0D00000000000000000B080000000FFF000000000000000000BF0BF000000FFF<br> 00000000000000000BFB08FB00000FFF0000000000000000BFBF0BFFF0000FFF<br> F00000000000000BFBFB08FBFF000FFFFF000000000000B8BFBF0BFFFBF00FFF<br> FFF0000000000B8B8BFB08FBFFFB0FFFFFFF00000000B8B8B8BF0BFFFBF00FFF<br> FFFF0000000BFB8B8B8B08FBFF0FF0FF000F000000BFBFB8B8B80BFFF0FFF0FF<br> 0FF000000B8BFBFB8B8B08FB0FFFFF0F0FFF000008B8BFBFB8B08BF0FFFEFF0E<br> 0FFFF0000B8B8BFBFB0BFF0FFFFFEF000FFFFF000FB8B8B0B08FF0FFFEFFFEFF<br> FEFFFFF00B8BFB0B08FB0FFFFFEFFFEFFFEFFF000FB8B0888BF0FFFEFFFEFFFE<br> FFFFF0000BFB088BFF0FFFFFEFFFEFFFEFFF00000FB0008FF0FFFEFFFEFFFEFF<br> FFF000000BF0000BFF0FFFEFFFEFFFEFFF0000000FB00000FBF0FFFEFFFEFFFF<br> F00000000B0000000FFB0FFFEFFFEFFF000000000000000000F000FFFEFFFFF0<br> 00000000000000000000000FFFEFFF00000000000000000000000000FFFFF000<br> 0000000000000000000000000FFF000000000000000000000000000000F00000<br> 0000000000000000000000000000000000000000000000000000000000000000<br> 0000000000000000000000000000000000000000FFFFF07FFFFFF07FFFE3E03F<br> FFC1F07FFF80F07FFF00707FFE00303FFC00101FF800000FF0000007E0000007<br> C000000780000007000000070000000300000001000000000000000100000003<br> 000000070800000F0C00001F0E00003F1F00007F3F8800FF7FDC01FFFFFE03FF<br> FFFF07FFFFFF8FFFFFFFDFFFFFFFFFFFFFFFFFFF280000001000000020000000<br> 0100040000000000C00000000000000000000000000000000000000000000000<br> 00008000008000000080800080000000800080008080000080808000C0C0C000<br> 0000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000<br> 00DDD000000000000000000000000800000F00000000FB08000F00000008BF0B<br> F00FF000008B8B08B00FFF000FB8B80B0F0F00000BFB8080FF0F0F0008B0080F<br> FEF00EF00B0880FFEFEFEF000F0FB0FEFEFEF000000BFB0FEFEF00000000F000<br> FEF00000000000000F00000000000000000000000000000000000000FF830000<br> F8830000F0470000E0030000C001000080010000000100000000000000000000<br> 000100000003000000070000600F0000F61F0000FF3F0000FFFF0000}<br> end<br> object Label1: TLabel<br> Left = 43<br> Top = 21<br> Width = 60<br> Height = 12<br> Caption = 'ÄúÖªµÀÂð£¿'<br> Color = clBlack<br> Font.Charset = GB2312_CHARSET<br> Font.Color = clWhite<br> Font.Height = -12<br> Font.Name = 'ËÎÌå'<br> Font.Style = []<br> ParentColor = False<br> ParentFont = False<br> Transparent = True<br> end<br> object Memo_Text: TMemo<br> Left = 18<br> Top = 66<br> Width = 215<br> Height = 85<br> TabStop = False<br> Color = clBlack<br> Ctl3D = False<br> Font.Charset = GB2312_CHARSET<br> Font.Color = clWhite<br> Font.Height = -12<br> Font.Name = 'ËÎÌå'<br> Font.Style = []<br> Lines.Strings = (<br> 'µç»°¹ÜÀíϵͳ--Ô¤ÀÀ°æ'<br> ' ×÷ÕߣºÁºÃ÷ 1998-02'<br> ''<br> 'ÒªÔĶÁÕâЩС¼¼ÇÉÇë°´¡°ÏÂÒ»Ìõ¡±£»'<br> 'ҪʹϵͳÔÚÏ´ÎÆô¶¯Ê±×Ô¶¯ÏÔʾ´Ë¶Ô»°'<br> '¿ò£¬È·ÐÅ¡°Æô¶¯Ê±ÏÔʾ¡±±»Ñ¡ÖУ¡')<br> ParentCtl3D = False<br> ParentFont = False<br> TabOrder = 0<br> end<br> end<br> object CheckBox1: TCheckBox<br> Left = 12<br> Top = 192<br> Width = 133<br> Height = 25<br> Caption = 'Æô¶¯Ê±ÏÔʾ'<br> Checked = True<br> State = cbChecked<br> TabOrder = 2<br> end<br> object Memo_book: TMemo<br> Left = 288<br> Top = 90<br> Width = 79<br> Height = 109<br> Lines.Strings = (<br> <br> 'ÔÚʹÓÃÇ°Îñ±ØÈÏÕæÔĶÁ°ïÖúϵͳµÄ¡°Óû§±Ø¶Á¡±£¬ÕâÊÇÕýÈ·²Ù×÷±¾ÏµÍ³µÄ' +<br> '¹Ø¼ü£¡'<br> '½¨Á¢Óû§µµ°¸Ê±¶ÔÓû§ÐòºÅ²»±ØÒ²ÎÞ·¨Ð޸ģ¬´ËÏîÊý¾ÝÓÉϵͳ×Ô¶¯Éú³É¡£'<br> <br> 'ÔÚͳ¼Æͨ»°·ÑÓÃʱ£¬ÊäÈë˳Ðò×îºÃ°´ÕÕϵͳµÄÉÏÏÂÅÅÁÐ˳ÐòÀ´ÊäÈ룬ÕâÑù' +<br> 'Äã¿ÉÒÔ²»ÊäÈëÓû§ÐÕÃû£¬ÏµÍ³×Ô¶¯¼ì²â¡£'<br> 'ÔÚËùÓеÄÊäÈë´°ÌåÖУ¬°´»Ø³µ¼ü±íʾȷÈϲ¢×Ô¶¯»»µ½ÏÂÒ»ÊäÈë¿ò¡£'<br> <br> 'ÔÚËùÓеÄÊäÈë´°ÌåÖУ¬ÉÏÏ·½Ïò¼üÔÚÊäÈë¿òÖÐÇл»£¬×óÓÒ½¡ÔÚÎı¾¿òÀà×Ö' +<br> '¼äÒƶ¯¡£'<br> 'ÐÅÏ¢²éѯʱ£¬Ã»ÓÐÊäÈë¹Ø¼ü²éѯֵ»ò½«ÆäÇå¿Õ£¬ÏµÍ³Ä¬ÈÏä¯ÀÀËùÓС£'<br> '±¨±í»ã×Üʱ£¬ÔÚ´òÓ¡Ç°×îºÃ´æÅÌÎļþ¡£'<br> <br> 'ÔÚ´ò¿ªÁíÒ»²Ù×÷´°ÌåÊÇ×îºÃ¹Ø±Õµ±Ç°´°Ì壬ËäÈ»Õâ²»ÊDZØÐëµÄ£¬µ«»á½ÚÊ¡' +<br> 'ÄãµÄ×ÊÔ´£¬ÌرðÊÇÔÚ½ÏÂýµÄ»úÆ÷ÉÏʱ¸üÓ¦Èç´Ë¡£'<br> <br> '×¢Òâ±£»¤ÄãµÄÊý¾Ý¿â£¬¾¡¹Üϵͳ»áÔÚÄãɾ³ý»òδ±£´æÎļþ¶øͻȻ½áÊø±¾²Ù' +<br> '×÷µÄÇé¿öϸø³öÌáʾ»ò¾¯¸æ¡£')<br> ScrollBars = ssBoth<br> TabOrder = 4<br> Visible = False<br> end<br> end<br> </span></li></ul><ul> <li><span style=font-family: 宋体seriffont-size: 9pt>°æÖ÷£ºÁºÃ÷<br> ÈÕÆÚ£º1999-03-01<br> E-mail£º<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -