在窗体中我有8个dbedit,一个combobox还有一个dbmemo
我想用tab代替回车键盘!代码已经完成了!基本没有什么问题。
可有一个小问题就是,
如果我这样写
if key=#13 then
perform(WM_NEXTDLGCTL,0,0);是可以倒替tab键的,可如果我要在dbmemo里面编辑的话,那么只要一按回车,就马上跳到下一个的dbedit。这样就不好了,要怎么改正呢?谢谢拉!
我想用tab代替回车键盘!代码已经完成了!基本没有什么问题。
可有一个小问题就是,
如果我这样写
if key=#13 then
perform(WM_NEXTDLGCTL,0,0);是可以倒替tab键的,可如果我要在dbmemo里面编辑的话,那么只要一按回车,就马上跳到下一个的dbedit。这样就不好了,要怎么改正呢?谢谢拉!
解决方案 »
- 文件夹怎么压缩成一个文件。
- 请问程序运行时有时候出现这样的提示‘Access violation at address 77D3353D in module'user32.dll' read of address 00000000’,是什
- 应该采用什么技术?
- Qry2AID.Text:=Query1BID.Text; 取不到值????
- 数据库查询问题讨论,高手请进?
- 网络文件共享的问题
- 出现list index out of bounds(2);
- 如何将计算机转入休眠(挂起)和唤醒?有没有这样的API函数?
- ADO远程访问大容量数据库,解决方案讨论...
- 高分求教!关于接口的问题。
- 谁可以告诉我哪个网有ORACLE的书下载
- 怎樣控制Teechart顯示時放大和縮小﹖
2、或者不要设置dbmemo的横向滚动条,自动换行。这样如果用户输入回车,程序认为要跳入下一个控件。—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
第二个问题,我的dbmemo的scrollbars属性是ssnone,这样设置应该没有问题的!
那该如何做呢?这是我的代码,谢谢!
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
perform(WM_NEXTDLGCTL,0,0);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin
if (Activecontrol is Tmemo) Then
perform(WM_NEXTDLGCTL,0,0);
end;意思就是如果当前控件是Tmemo控件的话,就不再执行performWM_NEXTDLGCTL,0,0)语句如果可行的话不要忘记给分啊
if (Activecontrol is Tmemo) Then 应改为
if not (Activecontrol is Tmemo) Then