test.pas

运行时设计控件的一个小例子

unit Test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinBoxCtrls, ExtCtrls, bsSkinCtrls, bsSkinGrids, bsDBGrids, CustomUnit;

type
  TForm_Test = class(TForm)
    bsSkinExPanel1: TbsSkinExPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinSplitter1: TbsSkinSplitter;
    bsSkinExPanel2: TbsSkinExPanel;
    ScrollBox_ArchivesInput: TbsSkinScrollBox;
    bsSkinScrollBar10: TbsSkinScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
  private
    CustomClass : TCustomClass;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Test: TForm_Test;

implementation

uses DataMoudle;

{$R *.dfm}

procedure TForm_Test.FormCreate(Sender: TObject);
begin
  CustomClass:= TCustomClass.Create(Self);
  CustomClass.CreateComponentDynamic(DM1.ADODataSet_Component, ScrollBox_ArchivesInput, Nil);
end;

procedure TForm_Test.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
  CustomClass.ShowFieldDataByDS(DM1.ADODataSet1, 'ScrollBox_ArchivesInput');
end;

end.