我寫好一個萬年曆 標準的寫法,只有一個Project 和主 Form , Compiler 成一個 萬年曆.exe 測試 OK 現想將其轉成一個元件 但手邊的資料都是繼承簡單元件而成新的元件 我想是否現在要繼承一 TForm 元件 然後再將我原本的 萬年曆 的程式碼全超過來 該 Public 的就 Public 有沒快速的方法將一般的 Form1 (以寫好程式碼在裡面) 快速的轉成一個 VCL ?? 如果 這個 TMyForm 將來不能當成 vcl 放到主 Form 上 那類似自己寫的萬年曆這種東西 要以哪個元件當繼承 base 呢 ? 因為我萬年曆上面不只是只有 Grid, 還有 button 等其他元件 所以不能像 delphi sample 中的 萬年曆直接繼承 TCustomGrid ... TCalendar = class(TCustomGrid) 發表人 - bruce0211 於 2003/11/06 14:09:59

有幾個辦法 1. 使用Frame 2. 使用Component Template 3. 把它變成ActiveX Form 4. 要不然就把繼承自TForm的類別改成TPanel, 就可以RegisterComponents

找到方法了 我發現使用 Form 為 base 的元件可能是所有元件設計中最簡單的方式(因為設計核心時是在一般專案中設計並測試,且可放入任何你想要的元件,如果不是以 Form 為 base 的元件,光想想我們要設計將兩個元件聚合成為一個新元件就已經多不直多困難) 1.設計帶有 Form 的元件,如萬年曆,獨立的對話盒等等,通常這種類型的元件在 user 主 form 中是一不可視元件,也就是插到 Delphi 中只是一個 ICON 而已 (如標準的檔案開啟對話盒元件 TOpenDialog) ,需要用時再利用 if OpenDialog1.Execute then ... 這種方式去呼叫 2.由於這類元件不需在主畫面佔據位置,而是被獨立呼叫(就像是 ShowModal),所以設計元件時可以一般方法設計(可放入許多及任何元件的組合在裡面),如我要設計萬年曆,先用一般方式開一 Project1 專案,以及萬年曆的 unit1.pas & unit1.dfm , 將萬年曆內容寫好,並可 compiler 測試 ok (叫做 project1.exe),我們便可丟掉 project1.* 的檔案,只留下 unit1.pas 及 unit1.dfm 這兩個萬年曆的核心 3.開始設計元件,元件類別繼承自 TComponent , 也就是拿 TComponent 當藥引子,替 TComponent 增加一個公開的方法 "Execute" , 以及 Date 屬性 , 執行 Execute 時, TComponent 實際上是去呼叫完整的萬年曆程式,再將日期回傳 以下為 TMyCalendar 的元件內容 , 可以看出萬年曆程式碼並未寫在裡面,而是另外呼叫 MyCalendarSource.pas (也就是上面舉例的 Unit1.pas) , 而MyCalendarSource.pas 之 Form 名稱叫 FormMyCalendar (也就是上面舉例的 Unit1.dfm) , 整個TMyCalendar 只是當作藥引子 , 實際上萬年曆的程式碼是寫在 MyCalendarSource.pas 中的 其他類似的元件也可依樣畫葫蘆,先用一般方法設計專案設計 Form,測試 OK 後 , 留下 Form 這個部分的程式碼,再套到這個藥引子中

unit MyCalendar;    interface    uses
  SysUtils, Classes, Forms, MyCalendarSource;    type
  TMyCalendar = class(TComponent)
  private
    { Private declarations }
    FDate: TDateTime;
    FRocYear: string;
    FRocMonth: string;
    FRocDay:string;
    procedure DateToRoc(ADate:TDateTime);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;
    destructor  Destroy; override;
    function Execute: boolean; overload;//本元件公開的方法
    function Execute(ALeft,ATop: integer): boolean;  overload; ;//本元件公開的方法(可指定萬年曆出現的座標位置,復疊函式)
  published
    { Published declarations }
    property Date:TDateTime read FDate; //本元件公開的屬性,日期
    property RocYear:string read FRocYear; //本元件公開的屬性,民國年
    property RocMonth:string read FRocMonth; //本元件公開的屬性,民國月
    property RocDay:string read FRocDay;//本元件公開的屬性,民國日
  end;    procedure Register;    implementation    constructor TMyCalendar.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
   FDate := SysUtils.Date;  
   DateToRoc(FDate);
end;    destructor TMyCalendar.Destroy;
begin
  inherited Destroy;
end;    function TMyCalendar.Execute: boolean;
var r:integer;
begin
  FormMyCalendar:=TFormMyCalendar.Create(nil);      try
    r:=FormMyCalendar.ShowModal;
     if r=1 then  //mrOK;
        begin
          FDate:=FormMyCalendar.SelectDate;
          DateToRoc(FDate);
          result:=true;
        end
     else
          result:=false;      finally
    FormMyCalendar.Release;
  end;    end;    function TMyCalendar.Execute(ALeft,ATop: integer): boolean;
var r:integer;
begin
  FormMyCalendar:=TFormMyCalendar.Create(nil);
  FormMyCalendar.Position:=poDesigned;
  FormMyCalendar.Top:=ATop;
  FormMyCalendar.Left:=ALeft;      try
    r:=FormMyCalendar.ShowModal;
     if r=1 then  //mrOK;
        begin
          FDate:=FormMyCalendar.SelectDate;
          result:=true;
        end
     else
          result:=false;      finally
    FormMyCalendar.Release;
  end;    end;    procedure TMyCalendar.DateToRoc(ADate:TDateTime);
var TmpYear, TmpMonth, TmpDay : Word;
begin
  DecodeDate(ADate, TmpYear, TmpMonth, TmpDay);
  FRocYear:=FormatFloat('00',TmpYear-1911);
  FRocMonth:=FormatFloat('00',TmpMonth);
  FRocDay:=FormatFloat('00',TmpDay);
end;    procedure Register;
begin
  RegisterComponents('MyWay', [TMyCalendar]);
end;    end.
  

發表人 - bruce0211 於 2003/11/22 11:05:22