View Single Post
 
Old 08-18-2017, 04:26 AM
Marsheng Marsheng is offline
Senior Member
 
Join Date: Nov 2008
Posts: 282
Default

Often typing a question helps the grey matter find a solution.

HTML Code:
procedure TfMain.eQRKeyPress(Sender: TObject; var Key: Char);
var
   sQR:string;
begin
   if ord(Key) = VK_RETURN then begin
      sQR := eQR.text;
      DO CODE;
   end;
end;