Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как получить выделенную часть текста в яч. DBGrid?

Автор: hedge_hog 15.6.2007, 23:16

Ладно, буду позориться, создам во второй раз эту тему в этом разделе (в общем-то ей тут и место, а то я случайно в "Общих вопросах её создал, надеюсь модераторы добрые ругаться не будут").

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

Код


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

Код


ADOTable1.Fields[0].Value

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

Автор: hedge_hog 16.6.2007, 12:10

Я "крут". Озарение, для меня гениальное, пришло довольно таки скоро, после долгих капаний в справочной программулине 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;

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

Извеняюсь smile

, если кого достал своими мелкими темами.