XE4 ToolsAPI PackageDemo BPL Component

最新推荐文章于 2017-08-15 14:45:00 发布

原创最新推荐文章于 2017-08-15 14:45:00 发布 · 713 阅读

0 ·

CC 4.0 BY-SA版权

XE4 专栏收录该内容

104 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的组件管理系统，该系统通过列表框展示不同包中的组件，并允许用户选择特定的包来查看其包含的所有组件。此外，还提供了一个复选框功能，用于过滤那些不包含任何组件的包。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit FrmMainpkd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Toolsapi, Menus;


type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    CheckBox1: TCheckBox;
    procedure ListBox1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form2: TForm2;


implementation


uses
  WizMainPKD;


{$R *.dfm}


procedure TForm2.ListBox1Click(Sender: TObject);
var
  i: Integer;
  TS: TStringList;


  function GetPackageIndex(Name: string): Integer;
  var
    j: Integer;
    
  begin
    Result := 0;
    for j := 0 to TS.Count-1 do
      if TS.Strings[j] = Name then
      begin
        Result := j;
        Break;
      end;
  end;


begin
  TS := TStringList.Create;


  try
    for i := 0 to PackageTest.PackageCount-1 do
      TS.Add(PackageTest.PackageNames[i]);
    
    Listbox2.Clear;
    if PackageTest.GetComponentCount(GetPackageIndex(Listbox1.Items.Strings[Listbox1.ItemIndex])) > 0 then
    begin
      for i := 0 to PackageTest.GetComponentCount(GetPackageIndex(Listbox1.Items.Strings[Listbox1.ItemIndex])) do
        Listbox2.Items.Add(PackageTest.GetComponentName(GetPackageIndex(Listbox1.Items.Strings[Listbox1.ItemIndex]), i));
    end
    else
      ListBox2.Items.Add('<No components>');
  finally
    TS.Free;
  end;
end;


procedure TForm2.CheckBox1Click(Sender: TObject);
var
  i: Integer;
  
begin
   Listbox1.Items.Clear;
   
   if CheckBox1.Checked then
   begin
     for i := 0 to PackageTest.PackageCount-1 do
       if PackageTest.ComponentCount[i] > 0 then
          Listbox1.Items.Add(PackageTest.PackageNames[i]);
   end
   else
     for i := 0 to PackageTest.PackageCount-1 do
       Listbox1.Items.Add(PackageTest.PackageNames[i]);
end;


end.

get all bpl component