以下只截錄該屬性部份… 目前FActionEdit這個屬性在設定時會連其他屬於TWinControl類別的元件都抓出來， 可不可以只抓屬於TEdit類別的元件呢？ 我把TWinControl改成TEdit之後連一個元件都抓不到，有人可以提供方法解決嗎？ 謝謝！ ： 略 ： private FActionEdit: TWinControl; procedure SetActionEdit(Value: TWinControl); published property ActionEdit: TWinControl read FActionEdit write SetActionEdit; ： 略 ： procedure ActionSQL.SetActionEdit(Value: TWinControl); begin FActionEdit:= Value; if Value <> nil then Value.FreeNotification(Self); end;

引言: private FActionEdit: TEdit;//不一定要改 procedure SetActionEdit(Value: TEdit); published property ActionEdit: TEdit read FActionEdit write SetActionEdit; ： 略 ： procedure ActionSQL.SetActionEdit(Value: TEdit); begin FActionEdit:= Value; if Value <> nil then Value.FreeNotification(Self); end;

混心雜欲 棄修身~唉

private      FActionEdit: TCustomEdit;
  procedure SetActionEdit(Value: TCustomEdit);
  function GetActionEditText: string;
  procedure SetActionEditText(const Value: string);    protected      procedure Notification(AComponent: TComponent; Operation: TOperation); override;    published      property ActionEdit: TCustomEdit read FActionEdit write SetActionEdit;
  property ActionEditText: string read GetActionEditText write SetActionEditText;    end;    implementation    procedure ActionSQL.SetActionEdit(Value: TCustomEdit);
begin
  FActionEdit:= Value;
  if Value <> nil then Value.FreeNotification(Self);
end;    procedure ActionSQL.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (AComponent = FActionEdit) then
    FActionEdit:= nil;
end;    function ActionSQL.GetActionEditText: string;
begin
  Result:= FActionEdit.Text;
end;    procedure ActionSQL.SetActionEditText(const Value: string);
begin
  FActionEdit.Text:= Value;
end;

發表人 - te_hsun 於 2005/09/02 10:08:30

謝謝兩位大大熱心的解答，不過兩位的方法我都試過， 在挑元件時都會是空的，無法找到任何 TEdit 或其他的元件。

你確定你放的是 TEdit元件 還是其他Third Party元件 混心雜欲 棄修身~唉

------
唉~

是 TEdit 元件沒錯，我自製的元件是繼承 TAdoQuery， 繼承的元件對屬性的設定有影響嗎？

我試了繼承 TAdoQuery 做一個元件 在Object Inspector中可以選取TEdit元件耶 是哪邊有問題呢? 還是你可以post一張問題圖片上來看看... 發表人 - te_hsun 於 2005/09/07 00:10:21

//原程式碼 unit openSQL;    interface    uses   Windows, Messages, SysUtils, Classes, DB, ADODB, QStdCtrls, Controls;    type   owSQL = class(TADOQuery)      private     { Private declarations }     FAllowEdit : Boolean;     FActionEdit: TCustomEdit;        procedure SetActionEdit(Value: TCustomEdit);      protected     { Protected declarations }     procedure Notification(AComponent: TComponent; Operation: TOperation); override;   public     { Public declarations }   published     { Published declarations }     Property AllowEdit :Boolean Read FAllowEdit Write FAllowEdit;     property ActionEdit : TCustomEdit read  FActionEdit write SetActionEdit;   end;    procedure Register;    implementation    procedure Register; begin   RegisterComponents('Samples', [owSQL]); end;    { owSQL }    procedure owSQL.Notification(AComponent: TComponent;   Operation: TOperation); begin   inherited Notification(AComponent, Operation);   if (Operation = opRemove) and (AComponent = FActionEdit) then     FActionEdit := nil; end;    procedure owSQL.SetActionEdit(Value: TCustomEdit); begin   FActionEdit := Value;   if Value <> nil then Value.FreeNotification(Self); end;    end.    上圖為上面程式碼的結果，下圖為我把TCustomEdit改成TWinControl的結果。

unit openSQL;    interface    uses Windows, Messages, SysUtils, Classes, DB, ADODB, StdCtrls, Controls; . . .

感謝te_hsun大大的解答，另外請教一個問題， 那些Library有Q跟沒Q的有什麼差別？ 有Q的給QuickReport用的嗎？

如果我沒弄錯 QStdCtrls 是給Kylix用的