if key=key_enter then begin //comboboxex1.ItemsEx.AddItem(edit1.Text,0,0,0,0,nil); showmessage(format('it is %s',[comboboxex1.Text])); //edit1.Text:=comboboxex1.Text; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then ShowMessage('1'); end;
----------------------------------------------
-