文件预览程序源代码.docVIP

■ 编程实现文件预览 ————————————————以下为程序代码————————————— TXTDLGTEMPLATE DIALOG 0, 0, 316, 76 STYLE 0x404L | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS FONT 8, MS Sans Serif { LTEXT , 1119, 0, 0, 204, 76, SS_LEFT | WS_CHILD | NOT WS_VISIBLE | WS_GROUP } ——棗棗棗棗棗棗棗棗棗棗棗棗棗棗棗 unit txtDialog; interface uses Windows, Messages, SysUtils, Classes, StdCtrls, ExtCtrls, Buttons, Dialogs, ShellAPI, Controls; type TtxtDialog = class(TOpenDialog) private { Private declarations } FtxtPanel: TPanel; FtxtLabel: TLabel; FPreviewButton: TSpeedButton; FtxtCtrl: TMemo; protect