Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 02.05.2013, 22:49   #1
noname_06
Пользователь
 
Регистрация: 18.01.2009
Сообщений: 49
Репутация: 20
Счастье Проблема с вставкой скопированного текста из 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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ClipBoard, буфер обмена, вставка русс. текста в окно с англ. раскладкой Smogg Общие вопросы Delphi 2 15.04.2012 11:49
проблема со вставкой в CИ megawolf Assembler 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 17:44
Проблема со вставкой кода на форум fs444 О форуме и сайтах клуба 2 13.11.2009 09:56




13:57.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
лучший хостинг
Выбираем лучший хостинг: рейтинг ТОП 10
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru