文件预览程源代码.docVIP

■ 编程实现文件预览————————————————以下为程序代码—————————————TXTDLGTEMPLATE DIALOG 0, 0, 316, 76STYLE 0x404L | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGSFONT 8, MS Sans Serif{ LTEXT , 1119, 0, 0, 204, 76, SS_LEFT | WS_CHILD | NOT WS_VISIBLE | WS_GROUP}————————————————————————————————unit txtDialog;interfaceuses 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; protected { Protected decla