| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перехват вставки

volser ©   (2004-01-10 17:02:00) 

Как перехватить вставку текста?
Пробовал через хук, но ничего не получается. Может у кого то кусок кода имеется

---

YuRock   (2004-01-10 20:24:00) [1]

Например:



TForm1 = class
...
private
 OldEdit1WindowProc: TWndMethod;
 procedure Edit1WndProc(var Message: TMessage);
...
end;

procedure TForm1.Edit1WndProc(var Message: TMessage);
begin
 if Message.Msg = WM_PASTE then begin
   ...
 end;

 OldEdit1WindowProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 OldEdit1WindowProc := Edit1.WindowProc;
 Edit1.WindowProc := Edit1WndProc;
end;

---

volser   (2004-01-10 20:17:00) [2]

> Необходимо просто перехватывать сообщение WM_PASTE (в оконной
> процедуре окна, в которое вставляют).

Напиши пожалуйста часть кода

---

YuRock   (2004-01-10 17:04:00) [3]

Необходимо просто перехватывать сообщение WM_PASTE (в оконной процедуре окна, в которое вставляют).

---

Наверх