我寫了數個元件,如 TStringGrid,TMyIni,..... 全部都將放到自訂的 MyWay 元件區內 但安裝時需一個一個安裝 請問各位長官 要如何一次安裝, 便可將所有元件全部安裝到 MyWay 元件區

Sir  如果我將 TMyStringGrid 中寫下 RegisterComponents('MyWay',[TMyStringGrid,TMyIni]); TMyStringGrid 怎知 TMyini 是誰 ??    TMyStringGrid.pas 中只有 TMyStringGrid 元件的程式碼 TMyIni.pas 中只有 TMyIni 元件的程式碼 我覺得是否要外部再寫一統籌各元件的"總"註冊程序 ?? 您的意思是否要我再寫一個"空"的 TMyWay 元件 裡面只有註冊 TMyStringGrid,TMyIni 的程序 我試過,下列程式碼是可用,但合乎正統方式嗎(我真的不知道,只有自己Try) 只為了幫別人註冊,會不會多出一個無用的 TMyWay 類別(class)     

 
unit MyWay;    interface    uses
  SysUtils, Classes, MyStringGrid,MyIni;    type
  TMyWay = class(TComponent)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('MyWay',[TMyStringGrid,TMyIni]);
end;    end.

發表人 - bruce0211 於 2003/11/06 12:37:33

把所有的UNIT全部包進自己的PACKAGE里嘛~~~拿到別台也只需要INSTALL那個PACKAGE就行了~~ 我懂的不多，懂的也不盡然是最佳的寫法，但求我懂的東西，能在大家的討論中，愈辯愈明~

引言: 把所有的UNIT全部包進自己的PACKAGE里嘛~~~拿到別台也只需要INSTALL那個PACKAGE就行了~~ ... <

PACKAGE 我還不會用,不過一步一步慢慢來,先學會標準的 VCL 語法,以及標準的VCL 註冊程序 ....

 
unit MyWay;    interface    uses
  SysUtils, Classes, MyStringGrid,MyIni;    procedure Register;    implementation    procedure Register;
begin
  RegisterComponents('MyWay',[TMyStringGrid,TMyIni]);
end;    end.

Well... a common way is to create an unit to register the class as you tried before. And there is no need to define any class in the unit.