我寫了一個Edit的事件
myEvent.pas
……
procedure newKeyDown;
begin
//想公用的keyDown
end;

<textarea cols="60" rows="10" class="delphi" name="code"> procedure MyKeyDown(edit:TEdit); begin edit.onKeyDown:=newKeyDown; end; </textarea>


在需使用的form中
xxxform.pas
procedure xxxform.FormCreate(Sender: TObject);
begin
MyKeyDown(Edit1);
end;

procedure xxxform.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//這裡寫的事件就不會執行，要如何才能都執行呢?
end;

編輯記錄

無法理解你這樣作的意義, 以下可能是你要的
另外, 事件共用在設計時就可以直接指定, 這個你應該知道吧!

===================引 用 rookie_me 文 章===================

我寫了一個Edit的事件
myEvent.pas
……
procedure newKeyDown;
begin
? //想公用的keyDown
end;

procedure MyKeyDown(edit:TEdit);
begin
? edit.onKeyDown:=newKeyDown;
end;

在需使用的form中
xxxform.pas
procedure xxxform.FormCreate(Sender: TObject);
begin
? MyKeyDown(Edit1); // 這裡已經指定新事件給 Edit1, 原來的 Edit1KeyDown 已經失去主控權
end;

procedure MyNewKeyDown(edit:TEdit);
begin
// do something
end;

procedure xxxform.Edit1KeyDown(Sender: TObject; var Key: Word;
? Shift: TShiftState);
begin
MyNewKeyDown(Edit1);
? //這裡寫的事件就不會執行，要如何才能都執行呢?
end;

------
將問題盡快結案也是一種禮貌!

會這樣做的原因是
有些共用的事件，如按F2跳小窗，
但某些edit 又需加上特別的事件，如
按F3做其他事

myEvent.pas
……
procedure newKeyDown;
begin
//想公用的keyDown，按F2 跳小視窗
end;

xxxform.pas
procedure xxxform.FormCreate(Sender: TObject);
begin
MyKeyDown(Edit1);
end;

procedure xxxform.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//按F3做其他事
end;

那麼就用下方式判斷就好了啊!

<textarea class="delphi" rows="10" cols="60" name="code"> if (Sender = Edit1) then begin // 按F2跳小窗 if (Key = VK_F2) then .......... end; if (Sender = Edit2) then begin // 按F3做其他事 if (Key = VK_F3) then ..... end; </textarea>
===================引 用 rookie_me 文 章===================
會這樣做的原因是
有些共用的事件，如按F2跳小窗，
但某些edit 又需加上特別的事件，如
按F3做其他事

myEvent.pas
……
procedure newKeyDown;
begin
? //想公用的keyDown，按F2 跳小視窗
end;

xxxform.pas
procedure xxxform.FormCreate(Sender: TObject);
begin
? MyKeyDown(Edit1);
end;

procedure xxxform.Edit1KeyDown(Sender: TObject; var Key: Word;
? Shift: TShiftState);
begin
? //按F3做其他事
end;

------
將問題盡快結案也是一種禮貌!