两个问题，scrollbar和key

Question

1   我再写一个编辑软件，用了两个memo,现需要将他们的scrollbars同步，即拖动一个memo的scrollbar，另一个要一起动。2   我希望在memo中用户按下ctrl+enter时触发一个事件，类似于qq.该怎么做？

Answer 1

2、
procedure TForm4.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((ssCtrl in Shift) and (key=VK_Return)) then
Begin
        showmessage('Ctrl+Enter Pressed!');
End;

Answer 2

1.应该要用到WM_VSSCROLL等消息，截获memo的滚动消息，发送滚动消息给另一个memo
2.OnkeyDown事件中
if ((ssCtrl in Shift) and (Key = VK_RETURN))  then    ...