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;


HTML generated by Time2HELP
http://www.time2help.com