Показать сообщение отдельно
  #8  
Старый 20.04.2013, 20:12
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Советую бросить на форму ещё одну мемку и проверить вставку вот так
Код:
 Memo1.SelectAll;
 Memo1.CopyToClipboard;
 memo2.Clear;
 Memo2.SetFocus;
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY, 0);
 keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
 keybd_event(86, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

// и дальше по коду
Ответить с цитированием