27.05.2012, 12:10
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
Memo1.Perform(EM_SETSEL, 7, 7);
Memo1.Perform(WM_CHAR, DWORD('_'), 0);
Clipboard.AsText:='12345';
Memo1.Perform(WM_PASTE, 0, 0); |