你研究一下如下代码就行了!
这个代码实现了把回车键模拟TAB键的功能:
在form3中当有按键按下时判断是否回车键,如是则把变量EnterKey设为True;
然后在定时器事件里根据EnterKey的值,把回车键模拟成TAB键.
最关键的是PostMessage方法.
procedure TForm3.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key=13 then
EnterKey:=true
else
EnterKey:=false;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if EnterKey=true then
begin
PostMessage(Handle,WM_KEYDOWN,VK_TAB,0);
EnterKey:=false;
end;
end;
你的问题只是这个问题的一个特例而已