TTest1 = class(TButton)
end;
TTest2 = class(TButtonControl) 
 

將上面兩個控件Install到元件盤。然後分別點到Form，只有TTest1出現了Button的形狀。這是否能說明TButton下的方法完成了TButton元件的形狀繪制。 查看TButton控件的Source，不知是哪個方法實現的Button現狀的繪制，請指點一二。

TButton = class(TButtonControl)
  private
    FDefault: Boolean;
    FCancel: Boolean;
    FActive: Boolean;
    FModalResult: TModalResult;
    procedure SetDefault(Value: Boolean);
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
    procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
    procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
    procedure CNCtlColorBtn(var Message: TWMCtlColorBtn); message CN_CTLCOLORBTN;
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
    procedure SetButtonStyle(ADefault: Boolean); virtual;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Click; override;
    function UseRightToLeftAlignment: Boolean; override;
 

======================================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。 發表人 - Leway 於 2004/03/18 10:26:07

CreateParams