Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
§Úªº¤@Ó¤pµ{¦¡¡A¬O³o¼Ëªº: ±N¬Y¤@¥Ø¿ý©³¤U©Ò¦³ªº *.txt °ÊºA¦a«Ø¥ß©ó ¬YÓmenuitem¤U¡C
¨Ò¦p: c:\test ¤U¦³¤TÓ.txt , ¤À§O¬O aa.txt , bb.txt , cc.txt ¡C ·í¨Ï¥ÎªÌÂI¤U " ÀÉ®× " ªº¥\¯à¿ï³æ®É¡A·|¥X²{
___________________________ ÀÉ®×(F) --------------------------- | aa | | bb | | cc | ----------
¦pªG¤S¦h¤@ÓÀÉ®× dd.txt ¡A«h¥\¯à¿ï³æ´N¦hÅã¥Üdd ¡C
§A°Ýªº°ÝÃD...²o¯A¨ìªºÆ[©À»P§Þ³NÆZ¼sªº, ¥]¬A: °ÊºA²£¥Íª«¥ó»P¨ä¨Æ¥ó³B²z¨Æ¥óªº«ü©w, ¥t¥~´N¬O§ä¥X«ü©w¥Ø¿ý¤¤ªº©Ò¦³ÀÉ®×. ±zÀ³¸Ó³£¥i¥H¦b§Úªº¾Ç²ßµ§°O(http://www.geocities.com/~wchien)§ä¨ì¬ÛÃöªº»¡©ú.
¥H¤U¬O°w¹ï³o¦¸§A°ÝÃD©Ò´£¥Xªº¨Ò¤l:
![]() |
1. Form ªº³]p
object mnuMain: TMainMenu Left = 4 Top = 4 object mnuFile: TMenuItem Caption = 'ÀÉ®×' ShortCut = 0 end end object Button1: TButton Left = 176 Top = 56 Width = 75 Height = 25 Caption = 'Refresh menu' TabOrder = 0 OnClick = Button1Click end |
![]() |
2. µ{¦¡³¡¤À
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) mnuMain: TMainMenu; mnuFile: TMenuItem; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } FDir: string; procedure MenuClick(Sender: TObject); procedure UpdateFileMenu; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin FDir := 'C:\TEMP\'; UpdateFileMenu; end; procedure TForm1.MenuClick(Sender: TObject); begin if Sender is TMenuItem then WinExec(pchar('Notepad.exe ' + FDir + TMenuItem(Sender).Caption), sw_Normal); end; procedure TForm1.UpdateFileMenu; var i: integer; SearchRec: TSearchRec; iFindResult: integer; mnuNew: TMenuItem; begin // ¥ý±N File ¤Uªº MenuItem ¬å¥ú for i := mnuFile.Count - 1 downto 0 do mnuFile.Items[i].Free; // ³v¤@·j´M«ü©w¥Ø¿ýªº .TXT ÀÉ®× iFindResult := FindFirst(FDir + '*.TXT', faAnyFile, SearchRec); while iFindResult = 0 do begin // °ÊºA²£¥Í¤@Ó TMenuItem mnuNew := TMenuItem.Create(Self); with mnuNew do begin Caption := SearchRec.Name; // ¥HÀÉ®×§@¬° Menu ªº Caption OnClick := MenuClick; // ¦b³oùØ«ü©w OnClick ¨Æ¥ó end; mnuFile.Add(mnuNew); // ¥[¨ì[ÀÉ®×]³oÓ¿ï³æ¶µ¥Ø¤U iFindResult := FindNext(SearchRec); // Ä~Äò§ä¤U¤@Ó .TXT ÀÉ end; end; procedure TForm1.Button1Click(Sender: TObject); begin UpdateFileMenu; end; end. |
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |