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

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

Оконная процедура [D6]

Atrem ©   (2002-05-10 22:24:00) 

Господа, как заменить оконную процедуру дочернего элемента.Есть пример на C++,но перенести что-то не получается.Хочу,например, поменять оконную процедуру edit.Вот что получилось:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Wnd:HWND;
N:integer;
implementation

{$R *.dfm}
function Proc(Wnd:HWND;Msg:Cardinal;WParam,LParam:Integer):integer;stdcall;
begin
if (Msg = WM_KEYDOWN) and (wParam = VK_RETURN) then ShowMessage("I did it !!!");
Result:=CallWindowProc(@n,wnd,Msg,WParam,LParam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Wnd:=CreateWindow("Edit","66",WS_CHILD or WS_BORDER or WS_VISIBLE or ES_CENTER or ES_NUMBER,10,10,100,30,Handle,1,HInstance,nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
n:=SetClassLong(Wnd,GWL_WNDPROC,integer(@Proc));
end;

end.

---

Raptor   (2002-05-13 21:20:00) [1]

Тут и пробовать нечего. SetWindowLong это именно то, что надо использовать.

---

Cobalt   (2002-05-11 14:09:00) [2]

Попробуй SetWindowLong;
А о смысле ошибки смотрите
ShowMessage(SysErrorMessage(GetLastError));

---

Atrem   (2002-05-11 13:21:00) [3]

а почему тогда не работает?

---

Cobalt   (2002-05-11 12:10:00) [4]

> Почему-то SetClassLong всегда возвращает 0

А что он должен возвращать? В случае успеха?

---

Atrem   (2002-05-11 11:48:00) [5]

Все равно не помогает
Почему-то SetClassLong всегда возвращает 0
Может еще есть ошибка?

---

ION T   (2002-05-10 22:54:00) [6]

В строке Result:=CallWindowProc(@n,wnd,Msg,WParam,LParam); n - содержит адрес указателя, а вы передаете указатель на переменную с этим адресом (указатель на указатель:))

Надо-бы делать простой тайпкаст Result:=CallWindowProc(Pointer(n),wnd,Msg,WParam,LParam);

---

Наверх