Zitat von
turboPASCAL:
Zitat:
Return Values
If the function succeeds, the return value is an atom that uniquely identifies the class being registered.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Delphi-Quellcode:
var
wc : TWndClassEx = (
cbSize : SizeOf(TWndClassEx);
Style : CS_HREDRAW or CS_VREDRAW;
lpfnWndProc : @WndProc;
cbClsExtra : 0;
cbWndExtra : 0;
hbrBackground : COLOR_APPWORKSPACE;
lpszMenuName : nil;
lpszClassName : ClassName;
hIconSm : 0;
);
Was willst du mir damit sagen? Es hat ja noch geklappt vorher.. ich hab ja ein ganzes Programm schon geschrieben gehabt. Ich weiß was in das TWndClassEx Record rein muss. cbWndExtra ist dafür das ich mit
SetWindowLong(FHandle,GWL_USERDATA,Data);
noch Daten anhängen kann. Um genau zu sein einen Pointer. Und das hat ja bisher auch immer alles geklappt. Ich kapiers einfach nicht.
Ach ja: Das angegebene WndProc springt sogar an. Es erhält nur keine WM_CREATE Message. Mit dem WindowHandle was ich da bekomme kann ich sogar Nachrichten an das Fenster senden.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."