Здравствуйте, 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;
Можно взглянуть на ваш фрагмент кода?