Delphi-Quellcode:
function WndProc(WinHandle: HWND; Msg: UINT; wP: WParam; lP: LParam): longint; stdcall;
begin
case Msg of
WM_KEYDOWN:
begin
if wP = VK_ESCAPE then
DestroyWindow(WinHandle);
end;
WM_TIMER:
SetImage(WinHandle);
WM_NCHITTEST:
begin
Result := HTCAPTION;
exit;
end;
WM_DESTROY:
begin
PostQuitMessage(0);
Result := 0;
exit;
end;
end;
Result := DefWindowProc(WinHandle, Msg, wP, lP);
end;
Seltsames verhalten wieder.
Wenn ich ESC drücke wird WM_KEYDOWN nicht aufgerufen die anderen Tasten funktionieren aber.