VPF::"Универсальный" способ для работы с БуферОбмена.

Hatigatsu

Дата 13.12.2006, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 11.10.2006
Где: г. Н.Новгород

Репутация: нет
Всего: нет

Здравствуйте.
Опять я побеспокою Умных людей своими глупыми вопросами (одним).
Подскажите как правильно работать с Буфер Обмена. Спрочитал пару статей, работают, но они не универсальны.
К примеру для копирования из ComboBox я использую:

Код


procedure TForm1.Copy1Click(Sender: TObject);
var  
 ClipBoard: TClipBoard; //переменная для работы с Буфер Обмена
begin
 if ActiveControl is TComboBox then
  begin
   ClipBoard := TClipBoard.Create;
   try
   ClipBoard.AsText := ComboBox1.SelText;
   finally
   FreeAndNil(ClipBoard);
   end;
  end;
end;

А если их два или более то уже фигня получается. Или, если есть DBMemo1, как из него скопировать выделенный текст или вставить в него из Буфера текст.
Или как из ячеек DBGrid1 скопировать текст в Буфер по нажатию на кнопку.

В общем есть ли универсальный способ для копирования выделенного текста из компонент, условно говоря, работающие с текстом.
Заранее БлагоДарю.

Sunvas

Дата 13.12.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Код


SendMessage (somecontrol.Handle,WM_Copy, 0, 0);

Не?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Hatigatsu

Дата 14.12.2006, 01:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 11.10.2006
Где: г. Н.Новгород

Репутация: нет
Всего: нет

Sunvas, Ты Гений. Выручил.
Только somecontrol.Handle не проходит при компиляции я его заменил на ActiveControl.Handle, не знаю в чём разница, но работает.
А не работало в таком контексте программы:

Код


procedure TForm1.Copy1Click(Sender: TObject);
begin
  //Копирует в Буфер Обмена
 if ActiveControl is TComboBox then
  SendMessage (somecontrol.Handle,WM_Copy, 0, 0);
end;

Ну это мелочи.
Я в общем Очень Рад. smile

skyboy

Дата 14.12.2006, 17:11 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Hatigatsu, во-первых - somecontrol это просто переменная для примера. Естественно, что, коль ты такую переменную не создавал, компилятор её не знает и ругается.
во-вторых, необязательно проверять ActiveControl на предмет отношения к классу TComboBox. Вполне можно копировать из любого контрола, который поддерживает редактирование(точнее - обрабатывает WM_COPY, но это почти одно и тоже - например, TListBox никак не реагирует на это сообщение, так же, как и TComboBox в режиме style=='dropdownlist'). Потому можешь выбросить проверку и копировать из любого контрола, который этого захочет.
Пример(набросай кучу лювых контролов на форму):

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssCtrl in Shift) AND (ssAlt in Shift)
 then
  SendMessage (ActiveControl.Handle,WM_Copy, 0, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Self.KeyPreview:= true;
end;

Однако, при копировании надо предвариетельно выделять копируемых текст. Да и с "не-редактируемыми" контроами так не поступишь. Если это напрягает, можно использовать сообщение WM_GETTEXT - оно даже кнопками обрабатывается. И ListBox'ами - тоже.
Если че непонятно - спрашивай smile

Удачи в освоении буфера smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »