Помогите разобраться с вставкой текста [D6, Win95/98, WinME, WinXP]
kalmykovser © (2004-04-25 12:20:00)
Уважаемые Мастера Delphi,
Мне нужно сделать так чтобы при нажатии клавиши текст
вставлялся из буфера обмена в объект (TEdit, TRichEdit и др.)
имеющий фокус.
Вот код которым я определяю Handle объекта имеющего фокус:
Procedure InsertText;
var
dwTargetOwner :DWORD;//указатель на подключаемый процесс
dwThreadID :DWORD;//указатель на текущий процесс
Result:longbool;
J :Integer;
ClipBuffer :String;
begin
// Подключение потока другого окна
dwTargetOwner :=
GetWindowThreadProcessId(GetForegroundWindow,nil);//указатель на
подключаемый процесс
dwThreadID := GetCurrentThreadId;//указатель на текущий
процесс
//if (dwTargetOwner <> dwThreadID) then begin // если
не один и тот же процесс
Result := AttachThreadInput(dwThreadID, dwTargetOwner,
TRUE);//подключение
//Handle объекта в активном окне я узнаю с помощью функции
GetFocus
//Текст в буфер вставляеться такой командой
//Clipboard.AsText := 'Delphi 6';
//И посылаю ему команду чтобы он вставил текст из буфера
обмена windows
SendMessage(GetFocus,WM_PASTE,0,0);
if (Result) then AttachThreadInput(dwThreadID, dwTargetOwner,
FALSE);//отключение
end;
Вопрос :
1. Почему текст не вставляеться в программы Microsoft Office
(Exel,Word) в чём проблема ? Как правильно
отдавать другим программам команду PASTE ?
2. Как сохранить данные в буфере обмена на время работы этой
процедуры чтобы потом восстановить их в буфере.
Cobalt (2004-04-25 22:12:00) [1]
1) Возможно, придётся идти на дополнительные ухищрения,
например если вставка требуется в Ворд или Эксель, то особым
образом к ним подключаться, например, через COM-сервера...
2) Сохранять эти данные во временной структуре. Смотри
подробности в справке.
P.S. А ты молодец, что задумался о том, что буфер может
использоваться ещё кем-то.
Наверх 
ЧАТ |
Орешник |
|
