jj: Add LookupGrid Control, Work in Progress!

LookupGrid/GridHandler.vb

@@ -0,0 +1,18 @@
+Imports System.Windows.Forms
+Imports DevExpress.XtraGrid.Views.Grid
+
+
+Public Class GridHandler
+    Inherits Handler.GridHandler
+
+    Public Sub New(ByVal gridView As GridView)
+        MyBase.New(gridView)
+    End Sub
+
+    Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
+        MyBase.OnKeyDown(e)
+        If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then
+            View.DeleteRow(View.FocusedRowHandle)
+        End If
+    End Sub
+End Class