Topic: Помогите с проектом
В ниже приведенном коде событие key=38 и key-40 срабатывает а событие frmVibratKod1_TableGrid1_OnCellClick ('',0,0); не работает.
На гриде при нажатии на клавишу вниз и вверх строка выбирается но frmVibratKod1_TableGrid1_OnCellClick ('',0,0) не работает. Хочу отметить что при нажатии на строку мышкой все работает как надо, но я хочу чтобы она работала при нажатии клавиш вверх и вниз. Как реализовать?
procedure frmVibratKod1_OnShow (Sender: string; Action: string);
begin
frmVibratKod1.Edit1.Text:= NovayaForma.EdKod1.Text;
frmVibratKod1.Button1.Click;
frmVibratKod1.TableGrid1.SelectedRow:= 0;
frmVibratKod1_TableGrid1_OnCellClick ('',0,0);
end;
procedure frmVibratKod1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
frmVibratKod1.Edit2.Text:= frmVibratKod1.TableGrid1.Cells(1, ARow);
frmVibratKod1.Edit3.Text:= frmVibratKod1.TableGrid1.Cells(2, ARow);
end;
procedure frmVibratKod1_TableGrid1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=13 then
begin
frmVibratKod1.Button2.Click;
frmVibratKod1.Close;
end;
if Key=27 then
begin
frmVibratKod1.Close;
end;
if Key=38 then
begin
frmVibratKod1_TableGrid1_OnCellClick ('',0,0);
end;
if Key=40 then
begin
frmVibratKod1_TableGrid1_OnCellClick ('',0,0);
end;
end;