Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

Регистрация своего класса   Найти похожие ветки 

 
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 вся ветка

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
1-77438
TRex
2002-06-11 12:52
2002.06.24
Перемещение иконок в ListView


4-77694
Artemkin
2002-04-26 10:10
2002.06.24
Win Api - Playsound( )


3-77261
Бульбаш
2002-05-28 16:06
2002.06.24
Сообщение


8-77511
pIt
2002-02-09 03:55
2002.06.24
Bitmap ы из DLL ки или чужого EXE ка


7-77632
YDV
2002-03-25 14:44
2002.06.24
У кого-нибудь есть исходники Multi media tools for Delphi5 ...