FlatComboBox1KeyPress method |
Applies to
TForm2
Declaration
procedure FlatComboBox1KeyPress(Sender: TObject; var Key: Char);Implementation
procedure TForm2.FlatComboBox1KeyPress(Sender: TObject; var Key: Char); begin try if Key=#13 then begin oxGraphicButton1Click(Sender); Key:=#0; end;except end;End; |
|