FlatEdit1KeyPress method |
Applies to
TForm7
Declaration
procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);Implementation
procedure TForm7.FlatEdit1KeyPress(Sender: TObject; var Key: Char); begin try if Key=#13 then begin Key:=#0; FlatButton2Click(Sender); end else if Key=#27 then begin Key:=#0; FlatButton4Click(Sender); end; except end;End; |
|