مشکلی با Combobox [بایگانی]

javidtaheri

چهارشنبه 10 تیر 1383, 13:45 عصر

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

_alish_

چهارشنبه 10 تیر 1383, 14:51 عصر

کلید کم بود 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;