Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2013, 22:49   #1
noname_06
Пользователь
 
Регистрация: 18.01.2009
Сообщений: 49
Счастье Проблема с вставкой скопированного текста из Clipboard

Проблема с вставкой скопированного текста.
Текст или не вставляется:
Код:
procedure TForm1.btnAddToPiggyClick(Sender: TObject);
begin
  Clipboard.Clear;
  chrm.Browser.MainFrame.Copy;
  redtPiggy.Lines.Add(TextSplitter);
  if btnAddTime.Down then
  redtPiggy.Lines.Add(TimeToStr(Now));
  redtPiggy.PasteFromClipboard;
end;
Или первый раз вставляется предыдущее содержимое буфера обмена, а со второго - то, что скопировано.
Код:
procedure TForm1.btnAddToPiggyClick(Sender: TObject);
begin
  //Clipboard.Clear;
  chrm.Browser.MainFrame.Copy;
  redtPiggy.Lines.Add(TextSplitter);
  if btnAddTime.Down then
  redtPiggy.Lines.Add(TimeToStr(Now));
  redtPiggy.PasteFromClipboard;
end;
На пустом проекте проблем нет. Delphi XE3 (в 7 то же самое).

Если зарегистрироваться в цепочке - вставляет корректно, буду думать дальше.
Код:
procedure TForm1.WMDrawClipBoard(var msg: TWMDrawClipboard);
begin
 if ClipBoard.HasFormat(CF_TEXT) then
   richedit1.PasteFromClipboard
 else
   ShowMessage('скопирован не текст');
 SendMessage(nwnd, WM_DRAWCLIPBOARD, 0, 0);
end;

Последний раз редактировалось noname_06; 03.05.2013 в 01:31.
noname_06 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ClipBoard, буфер обмена, вставка русс. текста в окно с англ. раскладкой Smogg Общие вопросы Delphi 2 15.04.2012 11:49
проблема со вставкой в CИ megawolf Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 29.12.2011 23:26
Компонент UpDown. Проблема со вставкой картинок. z-wer Компоненты Delphi 6 19.04.2010 21:14
Проблема с вставкой кода в visual studio balamut Visual C++ 5 27.02.2010 16:44
Проблема со вставкой кода на форум fs444 О форуме и сайтах клуба 2 13.11.2009 08:56