مشکلی با Combobox

[javidtaheri]

میخواهم با زدن دکمه Enter روی combobox کل ایتم ها نمایش داده شود(مانند موس )

[_alish_]

کلید کم بود Enterرا انتخاب کردی

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if (Key=#13) and (not ComboBox1.DroppedDown) then

begin

 ComboBox1.DroppedDown:=True;

 Key:=#0;

end;

end;