多年不用Delphi,装了Delphi7/2010都没找到目录和文件的操作组件

Question

比如TDirectoryTreeView、TFileListView这些，知道在Bin的目录里有，可是控件面板上不显示，如何使用啊。
多年不用实在是生疏了。谢谢朋友们帮忙解答一下！

Answer 1

这些控件包全部保存在Delphi目录的bin下，文件扩展名为.bpl（共将近60个）。 　　安装这些包的方法很简单，只需点击菜单"component---->Install Packages..."，然后使用"ADD"选择需要的包就可以了。 　　dclclxstd70.bpl(Borland CLX Standard Components) 　　包括的控件：TActionList、TBitBtn、TSpeedButton、TCheckListBox、TAnimate、THeaderControl、TIconView、TListView、TPageControl、TProgressBar、TSpinEdit、TStatusBar、TTabControl、TTextBrowser、TTextViewer、TToolBar、TTrackBar、TTreeView、TColorDialog、TFindDialog、TFontDialog、TOpenDialog、TSaveDialog、TBevel、TControlBar、TImage、TPaintBox、TPanel、TRadioGroup、TShape、TSplitter、TTimer、TDirectoryTreeView、TFileEdit、TFileHistoryComboBox、TFileIconView、TFileListView、TFilterComboBox、TDrawGrid、TImageList、TMaskEdit、TMainMenu、TPopupMenu、TButton、TCheckBox、TComboBox、TEdit、TGroupBox、TLabel、TLCDNumber、TListBox、TMemo、TRadioButton、TScrollBar 　　dclstd70.bpl(Borland Standard Components) 　　包括的控件：TActionList、TApplicationEvents、TBitBtn、TSpeedButton、TCheckListBox、TCOMAdminCatalog、TAnimate、TComboBoxEx、TCoolbar、TDateTimePicker、THeaderControl、THotKey、TListView、TMonthCalendar、TPageControl、TPageScroller、TProgressBar、TRichEdit、TStatusBar、TTabControl、TToolBar、TTrackBar、TTreeView、TUpDown、TImageList、TDdeClientConv、TDdeClientItem、TDdeServerConv、TDdeServeritem、TColorDialog、TFindDialog、TFontDialog、TOoenDialog、TPageSetupDialog、TPrintDialog、TPrinterSetupDialog、TReplaceDialog、TSaveDialog、TBevel、TColorBox、TControlBar、TImage、TLabeledEdit、TPaintBox、TPanel、TRadioGroup、TShape、TSplitter、TTimer、TOpenPictureDialog、TSavePictureDialog、TScrollBox、TDrawGrid、TStringGrid、TMaskEdit、TMainMenu、TmediaPlayer、TOleContainer、TButton、TCheckBox、TComboBox、TEdit、TGroupBox、TLabel、TListBox、TMemo、TRadioButton、TScrollBar、TStaticText、TvalueListEditor、TXPManifest 　　dclwebsnap70.bpl(Borland WebSnap Components) 　　包括的控件：TDataSetAdapter、TDataSetvaluesList、TAdapterPageProducer、TAdapter、TApplicationAdapter、TEndUserAdapter、TEndUserSessionAdapter、TLoginFormAdapter、TPagedAdapter、TStringsvaluesList、TAdapterDispatcher、TLocateFileService、TPageDispatcher、TWebAppComponents、TSessionsService、TWebUserList、TXSLPageProducer 　　dcloffice2k70.bpl(Microsoft Office 2000 Sample Automation Server Wrapper Components) 　　包括的控件：TAccessApplicatoin、TAccessForm、TAccessReferences、TAccessReport、TClass_、TBinder、TExcelApplication、TExcelChart、TExcelOLEOBject、EExcelQueryTable、TExcelWorkbook、TExcelWorksheet、Tmaster、TPowerPointApplication、TPowerPointPresentation、TPowerPointSlide、TContactItem、TDistListItem、TDocumentItem、TExplorers、TFolders、TInspectors、TItems、TJournalItem、TnameSpace、TOutlookApplication、TOutlookBarGroups、TOutlookBarPane、TOutlookBarShortcuts、TPostItem、TRemoteItem、TReportItem、TTaskRequestAcceptItem、TTaskRequestAcceptItem、TTaskRequestDeclineItem、TTaskRequestItem、TTaskRequestUpdateItem、TWordApplication、TWordDocument、TWordFont、TWordLetterContent、TWordParagraphFormat 　　dclRave70.bpl(Rave Reports DE 5.0 Package) 　　包括的控件：TRvCustomConnection、TRvQueryConnection、TRvTableConnection、TRvDataSetConnection、TRvNDRWrite、TRvProject、TRvRenderHTML、TRvRenderPDF、TRvRenderPreview、TRvRenderPrinter、TRvRenderRTF、TRvRenderText、TRvSystem、TRvCustomConnection、TRvTableConnection、TRvDataSetConnection、TRvNDRWriter、TRvProject 

Answer 2

网上搜了无数，也都是这么说，可是，比如第一个package dclclxstd70.bpl，其中的大部分控件都显示在Standard和Win32以及System中，但是，就是找不到文件及目录处理组件TDirectoryTreeView、TFileListView这些。这些都是Delphi的基本组件，即便你在Install Package中把相关的文件去掉也是在那里，但是无论你加上还是去掉，文件处理组件就是找不到，不显示。

Answer 3

Delphi7创建CLX Application才能看到TDirectoryTreeView、TFileListView，在system标签页。CLX是跨平台组件库，它是基于Qt的，后来放弃了，较高版本的Delphi里没有。

Answer 4

嗯，首先感谢大家回复！
三楼这个说法我等下去验证一下。顺便问一下，如果没有类似的控件，高版本的Delphi如何创建文件管理工具啊？

Answer 5

Delphi7还有个ShellTreeView和ShellListView，仅适用于Windows平台。也可以使用API函数：FindFirstFile、FindNextFile（或FindFirst和FindNext），结合ListView自己查找显示文件和文件夹。

Answer 6

Delphi7还有个ShellTreeView和ShellListView，仅适用于Windows平台。也可以使用API函数：FindFirstFile、FindNextFile（或FindFirst和FindNext），结合ListView自己查找显示文件和文件夹。
非常感谢你的指点！
我在做一个文件处理小程序，现在想在界面中限定用户（比如用TEdit、TMaskEdit）输入一些文件扩展名，用户可以任意输入，但必须是“*.xxxxx”的格式，其中的后缀字符可以是1-5个。试了很多方法，但都不是很理想（最好输入的时候前面的“*.”都不能动）。请教你有什么好方法吗？

Answer 7

Delphi7还有个ShellTreeView和ShellListView，仅适用于Windows平台。也可以使用API函数：FindFirstFile、FindNextFile（或FindFirst和FindNext），结合ListView自己查找显示文件和文件夹。
非常感谢你的指点！
我在做一个文件处理小程序，现在想在界面中限定用户（比如用TEdit、TMaskEdit）输入一些文件扩展名，用户可以任意输入，但必须是“*.xxxxx”的格式，其中的后缀字符可以是1-5个。试了很多方法，但都不是很理想（最好输入的时候前面的“*.”都不能动）。请教你有什么好方法吗？
ExtractFileExt获取文件扩展名，length检查长度，不符合就弹出警告框，重新输入。是不是这样的效果。

Answer 8

Delphi7还有个ShellTreeView和ShellListView，仅适用于Windows平台。也可以使用API函数：FindFirstFile、FindNextFile（或FindFirst和FindNext），结合ListView自己查找显示文件和文件夹。
非常感谢你的指点！
我在做一个文件处理小程序，现在想在界面中限定用户（比如用TEdit、TMaskEdit）输入一些文件扩展名，用户可以任意输入，但必须是“*.xxxxx”的格式，其中的后缀字符可以是1-5个。试了很多方法，但都不是很理想（最好输入的时候前面的“*.”都不能动）。请教你有什么好方法吗？
ExtractFileExt获取文件扩展名，length检查长度，不符合就弹出警告框，重新输入。是不是这样的效果。我是觉得程序中我们自己写代码实现一些东西这倒都好办，反而是界面输入，有时候考虑到用户输入界面的友好性倒是让我们自己大伤脑筋。我目前是在Form上放了一个MaskEdit,设定用户只能输入“*.xxxxx”中x的部分，但总觉得不如Windows原生的很多界面好看。不过也能用，先凑合着用吧。谢谢你的热心帮助！

Answer 9

用MaskEdit单独限制扩展名可以，掩码可以输入.Ccccc;1;_，但是如果文件名可以随意输入就没法处理了，显示效果也不好。用Edit在KeyPress或Exit事件里判断更好。

Answer 10

还是在Edit的KeyUp事件里处理，比较好。

Answer 11

当按住按键连续输入时KeyUp事件不触发，而KeyPress和KeyDown都触发，并且在输入中文时屏幕上字只有KeyPress触发，更好判断，用KeyUp好在哪里。