unit pfm_selecttable;

interface

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

type
  Tfm_selecttable = class(TForm)
    LBox1: TListBox;
    BBtnOK: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure LBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    mselindex:integer;
  end;

var
  fm_selecttable: Tfm_selecttable;

implementation

{$R *.DFM}

procedure Tfm_selecttable.FormCreate(Sender: TObject);
begin
    with lbox1.Items do
    begin
    add('進貨入庫單');
    add('提貨出庫單');
    add('批發單');
    add('贈品單');
    //add('客戶退貨單');
    add('商品退貨單');
    add('門店退倉單');
    add('損溢單');
    add('調價單');
    end;
end;

procedure Tfm_selecttable.BBtnOKClick(Sender: TObject);
begin
    if lbox1.itemindex<0 then
    begin
        showmessage('請選擇查看的表單');
        exit;
    end;
    mselindex:=lbox1.itemindex;
    modalresult:=mrOK;
end;
procedure Tfm_selecttable.LBox1DblClick(Sender: TObject);
begin
    BBtnOKClick(BBtnOK);
end;

end.