Комбобокс и не только (Page 1 of 2)

Тогда так

procedure Form1_ComboBox1_OnKeyPress (Sender: string; var Key: Char);
begin
    if Key='1' then Form1.cbGroups.ItemIndex := Form1.cbGroups.Items.IndexOf('A');
    if Key='2' then Form1.cbGroups.ItemIndex := Form1.cbGroups.Items.IndexOf('B');
end;

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

Готово.

Обратите внимание на событие
procedure NovayaForma_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);

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

кстати при нажатии на ctrl + D долго открывается frmDiagnose, я так заметил что в frmDiagnose.Tablegrid4 иммется 58000 записей и более, поэтому происходит тормоз. Как быть с этим?

но все равно же при нажатии этой кнопки будут тормза, не так ли?

А можно ли вместо

procedure Form1_ComboBox1_OnKeyPress (Sender: string; var Key: Char);
begin
    if Key='1' then Form1.cbGroups.ItemIndex := Form1.cbGroups.Items.IndexOf('A');
    if Key='2' then Form1.cbGroups.ItemIndex := Form1.cbGroups.Items.IndexOf('B');
end;

писать вот так:

procedure Form1_ComboBox1_OnKeyPress (Sender: string; var Key: Char);
begin
    if Key='1' then Form1.cbGroups.dbItemID:= 1;
    if Key='2' then Form1.cbGroups.dbItemID:= 2;
    if Key='3' then Form1.cbGroups.dbItemID:= 3;
end;

и чем они отличаются?

я тут заметил что при удалении нижнего скрипта:

procedure NovayaForma_cbSex_OnKeyPress (Sender: string; var Key: Char);
begin
     if Key='0' then NovayaForma.cbSex.ItemIndex := NovayaForma.cbSex.Items.IndexOf('0 - Не указано');
     if Key='1' then NovayaForma.cbSex.ItemIndex := NovayaForma.cbSex.Items.IndexOf('1 - Мужчина');
     if Key='2' then NovayaForma.cbSex.ItemIndex := NovayaForma.cbSex.Items.IndexOf('2 - Женщина');
end;

находясь на NovayaForma.cbSex и нажатие на 0, 1 и 2  работают и без этого скрипта, почему так?

кстати в этом скрипте я сделал как вы сказали но в гриде4 ничего не показывает, только по нажатию на кнопки показывает 58000 записей с тормозами

procedure NovayaForma_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if (Ctrl) and (Key=ord('G')) then Groups.ShowModal;
    if (Ctrl) and (Key=ord('O')) then frmOper.ShowModal;
    if (Ctrl) and (Key=ord('D')) then frmDiagnose.ShowModal;
    frmOper.TableGrid1.dbUpdate;
    frmOper.TableGrid2.dbUpdate;
    frmOper.TableGrid3.dbUpdate;
    frmOper.TableGrid4.dbUpdate;
    frmDiagnose.TableGrid1.dbUpdate;
    frmDiagnose.TableGrid2.dbUpdate;
    frmDiagnose.TableGrid3.dbUpdate;
    frmDiagnose.TableGrid4.dbLimit := 500;
    Groups.TableGrid1.dbUpdate;
    Groups.TableGrid2.dbUpdate;
    Groups.TableGrid3.dbUpdate;
    Groups.TableGrid4.dbUpdate;
    Groups.TableGrid5.dbUpdate;
    Groups.TableGrid6.dbUpdate;
    Groups.TableGrid7.dbUpdate;
    Groups.TableGrid8.dbUpdate;
    Groups.TableGrid9.dbUpdate;
    Groups.TableGrid10.dbUpdate;
    Groups.TableGrid11.dbUpdate;
    Groups.TableGrid12.dbUpdate;
end;

procedure frmDiagnose_Button14_OnClick (Sender: string; var Cancel: boolean);
begin
frmDiagnose.TableGrid4.dbLimit:=0;
frmdiagnose.TableGrid4.dbUpdate;
end;

а как вы советуете это сделать? Мне надо чтобы при показе формы данные показались в гриде

Ну у меня ведь так и есть что при нажатии ctrl+D формы обновляются, я не понимаю в чем вы не видите смысла

pha1984
Приложите пожалуйста проект, посмотрю.