Форум: "WinAPI";
Текущий архив: 2015.12.13;
Скачать: [xml.tar.bz2];

Вниз

Перехват сообщения WM_COPY у TCombobox - не работает   Найти похожие ветки 

← →
allrussia   (2010-05-22 20:15) [0]


function NewMemoProc(wnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):integer; stdcall;
begin
if (uMsg = WM_COPY) then
чего-то делаем..
end;

...form1.create...
h:= Combobox1.Handle;
SetWindowLong(h,GWL_USERDATA,SetWindowLong(h, GWL_WNDPROC, LPARAM(@NewMemoProc)))


Точно такой же код прекрасно работает для TMemo и TEdit

В MSDN написано,  This message has no effect when sent to a combo box with the CBS_DROPDOWNLIST style.

ставлю csSimple или другие - в равно не работает
что не так делаю ? Спасибо.

---

← →
Игорь Шевченко ©   (2010-05-22 21:56) [1]

> что не так делаю ?


не у того окна ловишь. у ComboBox с csSimple такие сообщения отрабатывает его дочернее окно Edit

RTFM: GetComboBoxInfo hwndItem

---

← →
allrussia   (2010-05-23 01:21) [2]

Спасибо большое, но только не получается почему-то!

procedure TForm1.FormCreate(Sender: TObject);
var h: hwnd;
  cbbInfo: TComboBoxInfo;
begin
getcomboboxinfo(ComboBox1.Handle, cbbInfo);
h:= cbbInfo.hwndItem;
SetWindowLong(h,GWL_USERDATA,SetWindowLong(h, GWL_WNDPROC, LPARAM(@NewMemoProc)))
end;


Зато все это натолкнуло меня на другую мысль.
Если жать комбинацию клавиш - сообщение не перехватывется. А если послать программно WM_PASTE - все работает! Но не с этим кодом, а с предыдущим... :)

---

← →
allrussia   (2010-05-23 10:54) [3]

все разобрался, спасибо

надо было строку добавить здесь

procedure TForm1.FormCreate(Sender: TObject);
var h: hwnd;
 cbbInfo: TComboBoxInfo;
begin
cbbInfo.cbSize:= sizeof(TCOMBOBOXINFO);
getcomboboxinfo(ComboBox1.Handle, cbbInfo);
h:= cbbInfo.hwndItem;
SetWindowLong(h,GWL_USERDATA,SetWindowLong(h, GWL_WNDPROC, LPARAM(@NewMemoProc)))
end;

---

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

Форум: "WinAPI";
Текущий архив: 2015.12.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.001 c