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