在delphi中如何实现键盘操作?(20分)

xiegx · 2001-04-27

在应用程序窗口中,通过键盘的回车键或方向键来实现光标的控制(用delphi来实现).

yaya8163 · 2001-04-27

江维 · 2001-04-27

设置TAB的顺序，多用一些快捷键！ 在FormKeyPress中写点代码就可以啦！

celeries · 2001-04-27

在键盘事件中多多写代码吧，会很方便的。

zjlcc · 2001-04-27

1。先设置好控件的创建持续 2。if key=#13 then ???后面我忘了：（要看看以前的程序

softprince · 2001-04-27

定义一个结构:    TTab=record      up_order:byte;//上方控件的TabOrder值        down_order:byte;//...      left_order:byte;//...      right_order:byte;//...      order:byte;//自己的TabOrder值     end; 其他的就容易了.

michael.ma · 2001-04-27

在 onkeydown 事件中： if key=#13 then postmessage(wm_keydown,vk_tab,0); 则模拟按键Tab

hc251 · 2001-05-26

if key=#13 then { 判断是按执行键} if  (ActiveControl is Tedit) Then Begin { 不是在TDbgrid控件内} key:=#0; perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件} end; //模拟tab

zdb123 · 2002-02-26

onkeypress if key=#13 then 控件名.SetFocus;

zxb200 · 2002-02-26

首先設置Form1的KeyPreview屬性為True. procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin  if Key=#13 then   Begin    If  Not (ActiveControl is TDbgrid) Then        perform(WM_NEXTDLGCTL,0,0);    Else      SendMessage(TDbgrid(ActiveControl).handle,WM_KEYDOWN,VK_TAB,0);   key:=#0;  End; end;

SpyX · 2002-03-05

同意 zxb200 的看法!

老人家 · 2002-11-01

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1407832

在delphi中如何实现键盘操作?(20分)

xiegx

Unregistered / Unconfirmed

yaya8163

Unregistered / Unconfirmed

江维

Unregistered / Unconfirmed

celeries

Unregistered / Unconfirmed

zjlcc

Unregistered / Unconfirmed

softprince

Unregistered / Unconfirmed

michael.ma

Unregistered / Unconfirmed

hc251

Unregistered / Unconfirmed

zdb123

Unregistered / Unconfirmed

zxb200

Unregistered / Unconfirmed

SpyX

Unregistered / Unconfirmed

老人家

Unregistered / Unconfirmed

Similar threads