求助：想在TEDIT输入内容后，回车就运行一段程序，该怎么控制？

Question

大家帮忙啊！！！

Answer 1

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

Answer 2

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

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key = #13) then
    你的程序;
end;

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key = #13) then
    //To do your code 
end;

Answer 5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key = #13) then
    begin
   ...........
   end 
end
注意这时候你的光标应该是在edit控件里才有效！

Answer 6

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

Answer 7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key = #13) then
  begin
    winexec('start abc.txt');
  end;
end;