？？？如何用一条语句实现一个按键的功能？？？(30分)

L

longpoet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #1

类似vb中的SendKeys
就是说，我要按一下回车，相当于按下了tab

 

5

5i1zhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #2

SendMessage

 

L

locka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF KEY=13 THen
postmessage(form1.handle,WM_KEYDOWN,VK_TAB,0)
end;

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #4

一条语句肯定是不行的，不过三条就行了
if(Key=#13) then
Key:=#8
好像是8，我也忘了

 

L

longpoet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #5

API?

 

L

longpoet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #6

naughtboy： Key:=#8只是赋值，不起按键的作用

 

L

longpoet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #7

多人接受答案了。