我想在mousedown里调用keydown，应该怎么做？

Question

这样写：
 if button=mbleft then
     sgProductKeyDown(self,vk_Tab,[ ssShift ]);

Answer 1

这样写：
 if button=mbleft then
     sgProductKeyDown(self,vk_Tab,[ ssShift ]);

Answer 2

//参考如下代码
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Key: Word;
begin
  if Button = mbLeft then begin
    Key := VK_TAB;
    FormKeyDown(Sender, Key, Shift);
  end;
end;

Answer 3

这是执行KeyDown事件中的代码如果你要模拟按键的话请搜索以前的帖子