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

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

WM_COPY WinApi [D7, XP]

Sw ©   (2009-07-10 10:26:00) 

Добрый день! Мне нужно отменить в TCombobox операции копирования и вставки. Применяю вот такой код:
var OldWinProc:TFNWndProc;
function NewWindowProc(hWnd: HWND; msg: UINT; wParam: WPARAM;lParam:LPARAM): LRESULT; stdcall;
begin
 if (MSG=WM_COPY) or (MSG=WM_Paste) then exit;
 result:=CallWindowProc(OldWinProc,hWnd,Msg,wParam,lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 OldWinProc:=TFNWndProc(SetWindowLong(ComboBox1.Handle,GWL_WNDPROC,
 longint(@NewWindowProc)));
end;

Для Edit работает, а для ComboBox не срабатывает (стиль НЕ =  CBS_DROPDOWNLIST)

Помогите, пожалуйста, разобраться.

---

{RASkov}   (2009-07-14 09:24:00) [1]

> [7] Sw   (14.07.09 06:39)

Запоминать каждого комбобокса WinProc а затем вызывать в новой для каждого свою старую
var OldWndArrs: array of TWndProc;
в начале программы посчитать комбики и установить длину OldWndArrs.
Затем пробежаться по самим эти комбикам запомниы ихи OldWndArrs[i]:=TWinControl(Componens[k]).WinProc;
Ну и подправить NewWindowProc, где у каждого комбика вызывать свою старую OldWndArrs[i]

Как-то так.... наверное...

---

Sw   (2009-07-14 06:39:00) [2]

может есть какие-нибудь соображения :-(

---

clickmaker   (2009-07-13 12:09:00) [3]

не уверен, но возможно из-за того, что OldWndProcCmbBox в итоге остается только для последнего комбобокса

---

Sw   (2009-07-13 11:20:00) [4]

к сожалению не получается
я делаю так:

 for i := 0 to (PnlOsn1.ControlCount - 1) do
   if (PnlOsn1.Controls[i] is TComboBox) then
    begin
      hEdit:=FindWindowEx((PnlOsn1.Controls[i] as TComboBox).Handle,0,'Edit',nil);
      OldWndProcCmbBox:=TFNWndProc(SetWindowLong(hEdit,GWL_WNDPROC,longint(@NewWndProc CmbBox)));
    end;


последний комбобокс работает, а в предыдущие невозможно курсор установить

---

clickmaker   (2009-07-13 11:09:00) [5]

> для всех ComboBox'coв

for i := 0 to ControlCount-1 do begin
 if (Controls[i] is TComboBox) then
   ...

---

Sw   (2009-07-13 09:47:00) [6]

Подскажите, пожалуйста, как можно сделать тоже самое (т.е. отменить операции копирования и вставки) для всех ComboBox'coв на форме?

---

Sw   (2009-07-13 06:39:00) [7]

Спасибочки, понимаю, что  TCombobox сложный компонент, а вот какой функцией подступиться к его Edit'у не знала. Работает!

hEdit:=FindWindowEx(CmbBox1.Handle, 0, 'Edit', nil);


---

clickmaker   (2009-07-10 11:47:00) [8]

> для ComboBox не срабатывает

потому что сообщение посылается не самому списку, а дочернему окну класса Edit
CB_GETCOMBOBOXINFO или FindWindowEx

---

Наверх