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

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

Регистрация своего класса [D6, Win2k]

Atrem ©   (2002-04-26 23:58:00) 

Привот, вот решил серьезно взяться за изучение WinApi
Пытаюсь вот по книжке зарегистрировать свой класс и создать окно моего класса, но что-то не выходит,в чем ошибка?
Код таков :

....
private
function My(h:hwnd;msg:cardinal;w,l:Longint):Integer;stdcall;
....
function TForm1.My(h:hwnd;msg:cardinal;w,l:Longint):Integer;
begin
DefWindowProc(h,msg,w,l);
end;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var t:TWndClassEx;
h:hwnd;
begin
h:=0;
with t do
begin
style:=CS_HREDRAW or CS_VREDRAW;
lpfnWndProc:=@TForm1.my;
cbClsExtra:=0;
cbWndExtra:=0;
hInstance:=HInstance;
hIcon:=LoadIcon(0,IDI_APPLICATION);
hCursor:=LoadCursor(0,IDC_ARROW);
hbrBackground:=GetStockObject(WHITE_BRUSH);
lpszMenuName:=nil;
lpszClassName:="E";
hIconSm:=LoadIcon(0,IDI_APPLICATION);
cbSize:=sizeof(t);
end;
w:=Windows.RegisterClassEx(t);
h:= CreateWindow("E","окно моего класса",WS_OVERLAPPED,0,0,300,300,0,0,HInstance,nil);
ShowWindow(h,SW_MAXIMIZE);
UpdateWindow(h);
Ошибка не появляется, но и окна нет.

---

Atrem   (2002-04-27 01:03:00) [1]

2 Almaz
Спасибо,помогло

---

Almaz   (2002-04-27 00:29:00) [2]

Первое, что бросается в глаза
1. Метод класса не можетвыполнять роль оконной функции.
2. Перед тем как заполнять структуру t обнулите ее : FillChar(t, SizeOf(t), 0);
3. Ну и наконец вы кое-что забыли
function TForm1.My(h:hwnd;msg:cardinal;w,l:Longint):Integer;
begin
Result :=DefWindowProc(h,msg,w,l);
end;

Удачи.

---

Наверх