procedure TdBDialog.HandleEvent( var Event : TEvent );
var
    Chg : boolean;
    Rfrsh : boolean;
    MLine : TPoint;
    Q, R : TRect;
    L : integer;
    W : word;
    P : Pointer;

begin
    if Event.What = evKeyDown then
        Begin
            case Event.KeyCode of
                kbPgUp, kbPgDn :
                    Begin
                        if Event.KeyCode = kbPgUp then
                            W := cmPageUp
                        else
                            W := cmPageDn;

                        ClearEvent( Event );
                        P := Message( Owner, evCommand, W, @Self );
                        exit;
                    end;
                kbAltE :
                    Begin
                    end;
                kbEnter :
                    if Current^.HelpCtx = hcDataField then
                        Event.KeyCode := kbTab;
                kbDown : Event.KeyCode := kbTab;
                kbUp : Event.KeyCode := kbShiftTab;
                else
                    Begin
                        TDialog.HandleEvent( Event );
                        exit;
                    end;
            end;

            if Current^.Valid( 1 )then
                TDialog.HandleEvent( Event )
            else
                ClearEvent( Event );

            exit;
        end;

    if Event.What = evMouseDown then
        Begin
            dbCancel^.GetBounds( Q );
            Current^.GetBounds( R );
            MakeLocal( Event.Where, MLine );
            Chg := R.has( MLine );

            if not Chg then
                Chg := Q.has( MLine );

            if not Chg then
                Chg := ( MLine.X = 3 ) and ( Mline.Y = 0 );

            if Chg then
                TDialog.HandleEvent( Event )
            else
                if Current^.Valid( 1 )then
                    TDialog.HandleEvent( Event )
                else
                    ClearEvent( Event );

            exit;
        end;

    if Event.What = evCommand then
        Begin
            case Event.Command of
                cmPageUp, cmPageDn :
                    Begin
                        Chg := true;

                        if ( Current^.HelpCtx = hcDataField ) then
                            Chg := Current^.Valid( 1 );

                        if Chg then
                            Begin
                                L := FirstField;

                                if Event.Command = cmPageUp then
                                    FirstField := FirstField
                                        - ( FldsOnScrn - 1 )
                                else
                                    FirstField := FirstField
                                        + ( FldsOnScrn - 1 );

                                if FirstField < 1 then
                                    FirstField := 1
                                else
                                    if FirstField > FldsInFile
                                        - ( FldsOnScrn - 1 ) then
                                        FirstField := FldsInFile
                                            - ( FldsOnScrn - 1 );

                                if FirstField <> L then
                                    Begin
                                        SaveDialog( 0, true );
                                        ShowDialog( true );
                                    end;

                                FirstItem^.Select;
                            end;

                        ClearEvent( Event );
                        exit;
                    end;
                cmNextRec, cmPrevRec :
                    Begin
                        Chg := true;

                        if ( Current^.HelpCtx = hcDataField ) then
                            Chg := Current^.Valid( 1 );

                        if Chg then
                            Begin
                                Rfrsh := FirstField <> 1;
                                FirstField := 1;
                                SaveDialog( 1, Rfrsh );

                                if Event.Command = cmNextRec then
                                    Skip( 1 )
                                else
                                    Skip( -1 );

                                ShowDialog( Rfrsh );
                                FirstItem^.Select;
                            end;

                        ClearEvent( Event );
                        exit;
                    end;
            end;
        end;

    TDialog.HandleEvent( Event )
end;