[borland c] Keyboard input

[TrasherXL]

In Visual C kan ik probleemloos messages onderscheppen, via wndproc. Nu wilde ik eens borland c proberen en daarin hetzelfde doen. Het is een default project waarin ik in project1.ccp het volgende heb aangepast:

C++:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <windows.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
LRESULT CALLBACK WndProc(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam);
//---------------------------------------------------------------------------


LRESULT CALLBACK WndProcedure(HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam)
{
    switch(Msg)
    {
    case WM_DESTROY:
        PostQuitMessage(WM_QUIT);
        break;
        case WM_KEYDOWN:
        switch(wParam) {
        case VK_LEFT:
                        Application->Terminate();
            break;
        case VK_RIGHT:

            break;
        case VK_UP:

            break;
        case VK_DOWN:

            break;
        }
    return 0;

    default:
        return DefWindowProc(hWnd, Msg, wParam, lParam);
    }
    return 0;
}

//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }

        MSG Msg;

        while( GetMessage(&Msg, NULL, 0, 0) )
    {
             TranslateMessage(&Msg);
             DispatchMessage(&Msg);
    }

        return Msg.wParam;

}
//---------------------------------------------------------------------------

Maar als ik op links druk sluit ie niet af. Waarom werkt dit niet? Moet de declaratie van wndproc anders in borland?

.modbreak: Plaats C++ code tussen [code=c++]...[/code] tags!

[ Voor 6% gewijzigd door .oisyn op 07-07-2004 15:43 ]

[LordLarry]

En waar leg je de koppeling aan met de WndProcedure? Bovendien gebruik je nog wel gewoon de VCL. Application->Run(); start namelijk gewoon je app al in een message loop.

Als laatste wil ik nog zeggen dat als je iets met windows messages wilt doen in de VCL dat dit ook gewoon anders kan.