Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Перехват вставки   Найти похожие ветки 

← →
volser   (2004-01-10 17:02) [0]

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

---

← →
YuRock ©   (2004-01-10 17:04) [1]

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

---

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

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

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

---

← →
YuRock ©   (2004-01-10 20:24) [3]

Например:



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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c