各位好:下面是我的原始程式碼...是那裡錯了...要如何繼承TEDIT的ONKEYPRESS的事件....我試都不會有反應...謝謝... type NEWEDIT = class(TEdit) private { Private declarations } procedure OnKeyPress(Sender: TObject; var Key: Char);dynamic; protected { Protected declarations } public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Standard', [NEWEDIT]); end; procedure NEWEDIT.OnKeyPress(Sender: TObject; var Key: Char); begin if key=chr(13) then Perform(WM_NEXTDLGCTL, 0, 0); end;

peterjudy 你好

  你應該繼承的是Keypress而不是OnKeypress事件喔!因為OnKeypress並不是
TEdit的Method,它只是TEdit的事件屬性罷了，請如下修改
type
NEWEDIT = class(TEdit)    private
{ Private declarations }
protected
{ Protected declarations }
  procedure KeyPress(var Key: Char); override; // 改寫KeyPress
public
{ Public declarations }
published
{ Published declarations }
end;    procedure Register;    implementation    procedure Register;
begin
RegisterComponents('Standard', [NEWEDIT]);
end;    procedure NEWEDIT.KeyPress(var Key: Char);
begin
  if (Key = #13) and FNextControlOnEnter then
    (Owner as TControl).Perform(WM_NEXTDLGCTL,0,0);
  inherited;// 父類別的KeyPress會判別否有設定OnKeyPress事件，並呼叫
它，所以我們不用處理了。
end;    

_______________________________________ 深藍的魚，祝您好運..........連連