TEdit和TBotton的结合使用问题，还有怎么给BOTTON定义颜色

Question

TEdit和TBotton的结合使用问题，还有怎么给BOTTON定义颜色，要求在TEdit中输入字符后按ENTER键处理OnBottonClick事件！
我在TEdit的onkeydown事件中写了处理ENTER键的事件，运行按ENTER执行正确，但是有嘟的一声，是为什么？如果该事件是调用procedure TForm04.Button4Click，该怎么写？格式我写的if key=VK_return  then    Button5Click(Sender: TObject);这有什么错？

Answer 1

我也是初学者。button的颜色不能设定，只能从于父窗体的颜色。如果你想使用颜色的button，可以使用bitbutton，在windows组件中
    你看一下passcal语言，其中有关于调用过程的语句；我也是初学，经验是有问题多去看书和实际例程，然后多做练习。

Answer 2

你可以在tedit的onkeypress事件中写
if key=#13 then
button.click;
有声音是delphi自带的

Answer 3

怎么让它没有声音阿？
BITBUTTON是没有颜色的，只有加载一个图片而已，

Answer 4

让它没有声音！！！！方法一：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then // #13 = Return
  begin
    key := #0;
    // Code...
  end;
end;
方法二：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Mgs: TMsg;
begin
  if Key = VK_RETURN then
    PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
end;