两个问题，scrollbar和key

[chougoushi]

1 我再写一个编辑软件，用了两个memo,现需要将他们的scrollbars同步，即拖动一个memo的scrollbar，另一个要一起动。

2 我希望在memo中用户按下ctrl+enter时触发一个事件，类似于qq.该怎么做？

[flyingkiller]

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;

[happyzsl]

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

...

[chougoushi]

第二个问题解决，分数等第一个问题解决一起奉送


谁能帮忙解答一下第一个问题啊，谢谢！