rp_uselecttemplate.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit RP_USelectTemplate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TFrmRP_SelectTempL = class(TForm)
    FileListBox1: TFileListBox;
    Button1: TButton;
    Button2: TButton;
    EditTmplName: TEdit;
    procedure FileListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses PublicUnit;

{$R *.dfm}

procedure TFrmRP_SelectTempL.FileListBox1Click(Sender: TObject);
begin
  EditTmplName.Text := FileListBox1.FileName;
end;

procedure TFrmRP_SelectTempL.FormCreate(Sender: TObject);
begin
  FileListBox1.Directory := WholePathOfDir('报表模板');
  EditTmplName.Hint := EditTmplName.Text;
  EditTmplName.ShowHint := True;
  if FileListBox1.Count = 0 then
    Exit;
  FileListBox1.ItemIndex := 0;
  FileListBox1.Hint := FileListBox1.Items[0];
  FileListBox1.ShowHint := True;
end;

procedure TFrmRP_SelectTempL.FileListBox1Change(Sender: TObject);
begin
  if FileListBox1.ItemIndex = -1 then
    Exit;
  EditTmplName.Text := FileListBox1.Items[FileListBox1.ItemIndex];
  FileListBox1.Hint := FileListBox1.Items[FileListBox1.ItemIndex];
  FileListBox1.ShowHint := True;
end;

end.