开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
UseIntfForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

UseIntfForm.pas：源码内容
  1. unit UseIntfForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, TypInfo;
  9. type
  10.   TFormUseIntf = class(TForm)
  11.     BtnChange: TButton;
  12.     lbClasses: TListBox;
  13.     cbModal: TCheckBox;
  14.     Label1: TLabel;
  15.     procedure BtnChangeClick(Sender: TObject);
  16.     procedure FormCreate(Sender: TObject);
  17.     procedure FormDestroy(Sender: TObject);
  18.   public
  19.     HandlesPackages: TList;
  20.     procedure LoadDynaPackage (PackageName: string);
  21.   end;
  23. var
  24.   FormUseIntf: TFormUseIntf;
  26. implementation
  28. {$R *.DFM}
  30. uses
  31.   IntfColSel;
  33. procedure TFormUseIntf.BtnChangeClick(Sender: TObject);
  34. var
  35.   AComponent: TComponent;
  36.   ColorSelect: IColorSelect;
  37. begin
  38.   AComponent := TComponentClass (ClassesColorSelect
  39.     [LbClasses.ItemIndex]).Create (Application);
  40.   // if the interface is available
  41.   if not Supports (AComponent, IColorSelect) then
  42.     ShowMessage ('Interface not supported')
  43.   else
  44.   begin
  45.     // access to the interface
  46.     ColorSelect := AComponent as IColorSelect;
  47.     // initialize the data
  48.     ColorSelect.SelColor := Color;
  49.     if cbModal.Checked then
  50.     begin
  51.       if ColorSelect.Display (True) then
  52.         Color := ColorSelect.SelColor;
  53.       AComponent.Free;
  54.       ColorSelect := nil;
  55.     end
  56.     else
  57.       // modeless execution
  58.       ColorSelect.Display(False);
  59.   end;
  60. end;
  62. procedure TFormUseIntf.FormCreate(Sender: TObject);
  63. var
  64.   I: Integer;
  65. begin
  66.   // loads all runtime packages
  67.   HandlesPackages := TList.Create;
  68.   LoadDynaPackage ('IntfFormPack.bpl');
  69.   LoadDynaPackage ('IntfFormPack2.bpl');
  71.   // add class names and select the first
  72.   for I := 0 to ClassesColorSelect.Count - 1 do
  73.     lbClasses.Items.Add (ClassesColorSelect [I].ClassName);
  74.   lbClasses.ItemIndex := 0;
  75. end;
  77. procedure TFormUseIntf.LoadDynaPackage(PackageName: string);
  78. var
  79.   Handle: HModule;
  80. begin
  81.   // try to load the package
  82.   Handle := LoadPackage (PackageName);
  83.   if Handle > 0 then
  84.     // add to the list for later removal
  85.     HandlesPackages.Add (Pointer(Handle))
  86.   else
  87.     ShowMessage ('Package ' + PackageName + ' not found');
  88. end;
  90. procedure TFormUseIntf.FormDestroy(Sender: TObject);
  91. var
  92.   I: Integer;
  93. begin
  94.   // unlaod all packages
  95.   for I := 0 to HandlesPackages.Count - 1 do
  96.     UnloadPackage (Cardinal (HandlesPackages [I]));
  97.   // free the lists
  98.   HandlesPackages.Free;
  99. end;
  101. end.