VPF::Как получить выделенную часть текста вЯчейкеDBGrid

hedge_hog

Дата 14.6.2007, 22:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Свойство Value возвращает весь текст выделенной ячейки (типа того)

Код


ADOTable1.Fields[0].Value

А как получить только выделенную часть текста в ячейке DBGrid?

Добавлено @ 22:33

Код


DBGrid1.Fields[0].Text;
DBGrid1.Fields[0].AsString;

Возвращают весь текст ячейки.

Это сообщение отредактировал(а) hedge_hog - 15.6.2007, 22:53

hedge_hog

Дата 15.6.2007, 23:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Может кто-нибудь знает?

hedge_hog

Дата 16.6.2007, 11:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

Я "крут". Озарение, для меня гениальное, пришло довольно таки скоро, после долгих капаний в справочной программулине Delphi World 6.0.

Код


uses Clipbrd {дает возможность работать с Буфер Обмена}

type
  TList_words = class(TForm)
{...}
.
{...}

{Это обязательно должно быть}
 type
    TMyCustomGrid = class(TCustomGrid)
  public
    property InplaceEditor;
  end;

var
  {...}
procedure TList_words.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if (ssCtrl in Shift) AND (Key = VK_TAB)
 then
  begin
  //Записываем в буфер выделенный в DBGrid текст и вызываем окно "Запроса"
  if ActiveControl is TCustomGrid then
   TMyCustomGrid(ActiveControl).InplaceEditor.CopyToClipboard;
  //Задаём текст, о которое хотим получить информацию по быстрому
   Word_translat:=Clipboard.AsText;
  end;
end;

С Буфером конечно хорошо, проблема только, в том что он затерается выделенным текстом, если его предварительно не выгрузить во что-нибудь.

Это сообщение отредактировал(а) hedge_hog - 16.6.2007, 12:03

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