DELPHI窗口里的录入数据???(100分)

  • 主题发起人 主题发起人 dongliu
  • 开始时间 开始时间
D

dongliu

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI窗口里录入数据时,能否象DOS里那样快捷呢。全部键盘操作(包括保存)
 
可以。只要响应窗体的键盘事件来处理就行了。
if Key = VK_UP then
if a.SelIndex>1 then
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.SelIndex -1;
end
else
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.ItemCount;
end;

if Key = VK_DOWN then
if a.SelIndex < a.ItemCount then
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.SelIndex + 1;
end
else
begin
a.GetSelItems(1,2,'1');
a.SelIndex := 1;
end;

if Key = VK_LEFT then
begin
I:=StrToInt(a.GetSelItems(0,2,''));
a.GetSelItems(1,2,IntToStr(I+1));
end;
 
还有一个办法.做一个POPUPMENU. VISIBLE设为FALSE..
添入你想要处理的程序代码然后把快捷键设为你想要的..
这种方法很好用的..我就用它..
 
能在窗口里搞的象DOS一样吗
 
keyup
keydown
OK?
 

Similar threads

回复
0
查看
999
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
749
SUNSTONE的Delphi笔记
S
后退
顶部