為什麼我下面的事件無效???(100分)

A

abc_def

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-08

• #1

procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
Tedit(sender).Perform(WM_NEXTDLGCTL,0,0);
end;

 

J

janker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-08

• #2

把前面的Tedit(sender).去掉
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
Perform(WM_NEXTDLGCTL,0,0);
end;

 

A

abc_def

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #3

謝謝, janker, 可以了...

 

A

abc_def

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #4

接受答案了.