Событие Memo1KeyPress

[AIst]

Нужно чтобы при нажатии Ctrl+Enter данные из мемо1 записывались в мемо2.
Я написал так :

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var i: integer;
begin
if key = #0213 then
begin
for i := 0 to memo1.Lines.Count - 1 do
memo2.lines.add('->' + memo1.Lines[i]);
memo1.Lines.Clear;
end;

происходит просто перенос на следующую строчку. как сделать правильно чтобы при нажатии Ctrl+Enter данные из мемо1 записывались в мемо2?

Информацию о скан кодах нашел в интернете:

"Скан-код" - это целое 16битное шестнадцетиричное значение
Младший байт (2 правых знака): собственно скан-код клавиши
Старший байт описывает состояние шифт-клавишей и трактуется
побитно следующим образом:
7 6 5 4 3 2 1 0 Все биты = 0: "чистое" нажатие, т.е.
0 0 0 0 0 0 0 0 Shift/Ctrl/Alt/Win/Capslock не нажаты
| | | ^---- Комбинация Shift+CapsLock = 1
| | ^------ Нажат Ctrl
| ^-------- Нажат Alt
^---------- Нажат Win

...

Примеры скан-кодов для различных состояний триггеров при
нажатии клавиши "A":
Сканкод Описание
0041 Код простого нажатия клавиши "A"
0141 Код нажатия Shift+A
0241 Код нажатия Ctrl+A
0441 Код нажатия Alt+A
0841 Код нажатия Win+A
0341 Код нажатия Ctrl+Shift+A
0741 Код нажатия Ctrl+Alt+Shift+A

Скан код Enter = 13

значит Ctrl+Enter = #0213

[_Dmitry]

Используйте событие OnKeyDown

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = 13) then .....

[AIst]

во.. срост. спасиб. терь работает. но в мемо1 происходит переход на след строку(как при нажатии на enter).
можно сделать так чтобы не было этого перехода?

[Neeter]

Вот так попробуйте:

 if (ssCtrl in Shift) and (Key = 13) then
 begin
  Memo2.Lines := Memo1.Lines;
  Memo1.WordWrap := false;
  Memo1.Lines.Clear;
  Memo1.WordWrap := true; //Если вам нужен перенос слов
 end;

[Kotofff]

Немного поправлю и все вроде бы работает ...

Memo1.WordWrap := false;

Правда только в данном случае ...

[AIst]

теперь все. спасибо всем =)