Re[5]: Как программно открыть комбобокс?
От: Sergey Ten http://www.fastalgo.com
Дата: 19.01.03 15:12
Оценка:
Здравствуйте, chia, Вы писали:

C>Я же хотел сделать след-ее. под FileNameEdit (из RXlib) положил Combobox, чтобы при нажатии пользователем VK_Down выпадал список с историей, а FileNameEdit временно скрывался. В таком случае список выпадет и тут же закроется.


Сделал тестовый проект — бросил на форму TEdit (у меня нет RxLib), под ним спрятал TComboBox. Вроде ничего там не закрывается. Вот фрагмент кода:

procedure OpenComboBox(AComboBox: TComboBox);
begin
  with AComboBox do
  begin
    BringToFront;
    SetFocus;
    ItemIndex := 0;
    DroppedDown := true;
  end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_DOWN) and (ssAlt in Shift) then
    OpenComboBox(ComboBox1);
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
  ComboBox1.SendToBack;
  with Edit1 do
  begin
    Text := ComboBox1.Text;
    SetFocus;
  end;
end;


Можно взглянуть на ваш фрагмент кода?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.