一个例子:
procedure TfrmMain.edtFunctionKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
BitBtn2Click(Sender);
end;
end;
procedure TfrmMain.edtFunctionKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
BitBtn2Click(Sender);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货