مشکلی با 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;