ComboBox1

[-Flover-]

в компоненте ComboBox1 есть несколько строчек в которых написан текст, как сделать чтобы по нажатию на Enter, показывалось содержимое данного компонента???
через инспектора ставится только на пробел а на Enter оно показывается и сразу сворачивается заранее спасибо

[Kotofff]

как сделать чтобы по нажатию на Enter, показывалось содержимое данного компонента???

Можно попробовать так (если я правильно понял) :

procedure TForm4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then // при нажатии Enter
    begin
    Key := #0; // ... "сбрасываем" нажатую клавишу
    ComboBox1.DroppedDown := true; // ... "выпадаем" список
    end;
end;

[-Flover-]

Kotofff, благодарю )) усовершенствовал код, чтоб работало и открытие и закрытие списка на Enter

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // при нажатии Enter
 begin
  if ComboBox1.DroppedDown = False then
   begin
    Key := #0;
    ComboBox1.DroppedDown := true; // ... "выпадаем" список
   end;
  end
  else
   begin
    key:=#0;
    ComboBox1.DroppedDown := False;  // закрываем список
   end;
end;

если есть более простое решение, хотелось бы взглянуть на него :-)

[Kotofff]

procedure TForm4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  ComboBox1.DroppedDown := (Key = #13) and (not ComboBox1.DroppedDown);
  if Key = #13 then Key := #0; // ... если Enter - "сбрасываем" клавишу шоб не пикало !
end;

[-Flover-]

Kotofff, попробовал твой код... у меня скажем так, две формы где используется этот компонент, на одной один, на второй их три... там где один, работает нормально, там где три, открывается список и сразу закрывается, почему не пойму

procedure TForm5.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
ComboBox1.DroppedDown := (Key = #13) and (not ComboBox1.DroppedDown);
  if Key = #13 then Key := #0;
end;

procedure TForm5.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
ComboBox2.DroppedDown := (Key = #13) and (not ComboBox2.DroppedDown);
  if Key = #13 then Key := #0;
end;

procedure TForm5.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
ComboBox3.DroppedDown := (Key = #13) and (not ComboBox3.DroppedDown);
  if Key = #13 then Key := #0;
end;

это к примеру там где три, вроде ж всё правильно

[-Flover-]

всё, разобрался, у меня в инспекторе было включено AutoComplete поэтому не работало.... спасибо за помощь :-)

аналог моего варианта:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if ComboBox1.DroppedDown=false then
   ComboBox1.DroppedDown:=true
   else ComboBox1.DroppedDown:=false;
    Key := #0;
end;