5,388
社区成员
发帖
与我相关
我的任务
分享
if key = 118 then N10Click(Sender);
if key = 112 then N8Click(Sender);
if key = 113 then N9Click(Sender);
if key = 27 then N14Click(Sender);
if key = 120 then N15Click(Sender);
if key = 38 then Table1.Prior;
if key = 40 then Table1.Next;
if key = 33 then PostMessage(DBGridEh1.Handle, WM_KEYDOWN, 33, 0);
if key = 34 then PostMessage(DBGridEh1.Handle, WM_KEYDOWN, 34, 0);
if key = 46 then N11Click(Sender);
if key = 119 then N7Click(Sender);
if key = 37 then Edit1.SetFocus;
if key = 39 then Edit3.SetFocus;
if (key = 13) or (key = 120) then
if (key = 13) and (Edit1.text <> '') then
.................