Delphi数据库输入控件DBPanel的实现上

通过实现OnOKClick方法，用户可以完成提交、数据合理性检验等各种处理工作。

　　另外一个需要特殊处理的是控制在各个字段间的转换。缺省的情况是用鼠标点击。但是，用户的习惯往往是用键盘中的“上、下、左、右”四个箭头键。要实现这一功能需定义以下两个方法：

procedure AKeyPress(Sender: TObject; var Key: Char);
procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

　　将以上两个方法赋值给动态生成的Editors，从而实现对箭头键的响应。

　　不同的表字段数不同，有可能出现显示不下的情况，这就需要有滚动的功能。所以，在控件中插入了一个TscrollBox控件。

　　最后一个需要注意的是动态控件的撤消及内存的释放。控件数组的撤消及内存的释放是有顺序的——与创建完全相反的顺序。否则会出错。

　　控件的使用

先将DBPanel控件放在窗体上，然后设置数据源属性、数据输入表格的列数等属性。在程序中，打开数据源后，调用创建数据编辑控件的方法即可。即：

Query1.Open;-$#@62;打开数据源

DBPanel1.CreateEditors; -$#@62;创建各字段的编辑控件

DBPanel1.AddHits(0,["1111","11222","eeee"]); -$#@62;为某字段设置提示信息

DBPanel1.AddHits(1,["1111","11222","eeee"]); -$#@62;为某字段设置提示信息

　　该控件及示例程序在Win98+Delphi 5.0环境下调试通过。