mainfrm.pas

Delphi插件程序示例

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SnForm, ComCtrls, ExtCtrls, StdCtrls, Buttons, SnButton, ImgList;

type
  TMainForm = class(TForm)
    SnForm1: TSnForm;
    pnlStat: TPanel;
    lvMain: TListView;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lvMainDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation
uses Global;
{$R *.dfm}

procedure TMainForm.FormShow(Sender: TObject);
var
  i: integer;
begin
  lvMain.Clear;
  for i:=0 to lstPlugIn.Count-1 do
  begin
    PlugIn := lstPlugIn.Items[i];
    with lvMain.Items.Add do
      begin
        Caption := PlugIn.PlugInName;
        SubItems.Add(PlugIn.PlugInFile);
      end;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  LoadPlugIns();
end;

procedure TMainForm.lvMainDblClick(Sender: TObject);
begin
  if lvMain.Selected=nil then exit;
  try
    CloseForm;
  except
  end;
  RunPlugIn(lvMain.Items.Item[lvMain.Selected.Index].SubItems[0]);
end;

end.