unit1.~pas

游戏菜单,pottos写的调用VD的菜单.(附菜单全部源码)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList,UsClass;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    ListView1: TListView;
    TabControl1: TTabControl;
    procedure FormCreate(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tabc:TC;
  vi:TlistViewBox;
  Dir:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Dir:=ExtractFilePath(Application .ExeName);
   Tabc:=TC.Create(Dir+'\setup.ini');
   TabControl1.Tabs:=Tabc.T;
   vi:=TlistViewBox.Create(ListView1,ImageList1,Dir+Tabc.GetPath(0));
end;

procedure TForm1.TabControl1Change(Sender: TObject);
var
 title:integer;
begin
  title:=TabControl1.TabIndex;
  vi:=TlistViewBox.Create(ListView1,ImageList1,Dir+Tabc.GetPath(title));
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
begin
{}

end;

procedure TForm1.ListView1Click(Sender: TObject);
var
 selec:integer;
 TE:TExecute;
 Title:string;
begin
  {}
  selec:=ListView1.ItemIndex;
  if selec<0 then exit;
    Title:=ListView1.Items.Item[selec].Caption;
    TE:=TExecute.Create(Title,Dir+Tabc.GetPath(TabControl1.TabIndex));
    

end;

end.