Форум: "WinAPI";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
ВнизРегистрация своего класса Найти похожие ветки
← →
Atrem (2002-04-26 23:58) [0]Привот, вот решил серьезно взяться за изучение 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);
Ошибка не появляется, но и окна нет.
← →
Almaz (2002-04-27 00:29) [1]Первое, что бросается в глаза
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;
Удачи.
← →
Atrem (2002-04-27 01:03) [2]2 Almaz
Спасибо,помогло
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c