关于Edit与Button的问题.请教请教

[littlexin]

请问一下.如何可以使在Edit中按回车键直接调用Button中的OnClick事件?

[caoyq]

KeyPress事件中：
if Key=#13 then
Button1.Click;

[cjfzy]

if Key=#13 then
Button1Click(Button1);

[ourme]

赞成楼上

[jan2002]

if Key=#13 then
Button1Click(self);

[ziqing]

来晚了

[jianyuzhu]

KeyDown事件中：
if Key=#13 then
Button1.Click;

[yyfhz]

同意楼上的，不过使用Button1Click(self)的要当心了，
1.Button1.OnClick可以不是Button1Click的,
2.Sender参数一般是指事件接受者，如Button1自己
3.调用Button1.Click会有按钮被按下的显示效果:)

[ahjoe]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Button1.Click();
end;

[zqc-tutorial]

楼上分析的好，
如果Button1Click(Sender: TObject)同时处理了其他按钮或者其他控件的OnClick事件，
这时S应该Button1Click(Button1)或者Button1.Click，前者要注意参数问题，
后者则不用考虑了。

[Taken]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Button1.Click;
end;

[redlegend_126_com]

KeyDown事件中：
if Key=#13 then
Button1.Click;

[pairs]

if Key=#13 then
Button1Click(nil);