各位好,我看到过较多关于利用RETURN代替TAB的过程,都觉得较繁,希各位提供高招

yp 2000-01-13 04:55:00
...全文
309 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
boby_v 2000-01-22
  • 打赏
  • 举报
回复
可以用API函数,keybd_event()试一下!
yp 2000-01-19
  • 打赏
  • 举报
回复
对不起,由于本地服务器在修改,不能上网,请见谅
所有答案我会使用后打分。
jing 2000-01-14
  • 打赏
  • 举报
回复
有一个TRUE DBINPUT的控件可代替写程序.
forever 2000-01-14
  • 打赏
  • 举报
回复
我曾经写过几十个Vcl操作的公共调用,现把以下代码给你使用。
procedure EnterToTab(aForm: TForm; var Key: Char);
begin
if Key = #13 then
begin
key := #0;
aForm.Perform(CM_DialogKey, VK_TAB, 0);
end;
end;
tiger 2000-01-14
  • 打赏
  • 举报
回复
看看我的
在Form的KeyDown中
if Key = VK_RETURN then
begin
SelectNext(ActiveControl, True, True);
end
zyb 2000-01-14
  • 打赏
  • 举报
回复
看看如下代码吧:
procedure TForm1.FormKeyPress(sender : TObject;varkey : char) ;
begin
if key=13 then
if not (ActiveControl is TDBgrid) then
begin
key := 0 ;
perform(WM_NEXTDLGCTL,0,0) ;
end
else if (ActiveControl is TDBgrid) then
begin
with TDBgrid(ActiveControl) do
if Selectedindex<(FiledCount-1) then
Selectedindex := selectindex+1
else
Selectedindex := 0 ;
end ;
end ;

end
end ;
fstao 2000-01-14
  • 打赏
  • 举报
回复
1、如果是用TEdit或TComcobox和TDBEdit,在Form1的onkeyDown写:
if (Key=VK_RETURN) THEN
ActiveControl:=FindNextControl(TWinControl(Sender),True,True,False);
然后上面的三个组件的OnkeyDown指向Form1的onkeydown就行了。
2、至于TDBgrid,可以参考caili,也可以下载infopower组件的Twwdbgrid组件。
Firing_Sky 2000-01-13
  • 打赏
  • 举报
回复
同意caili
caili 2000-01-13
  • 打赏
  • 举报
回复
Form.KeyPreview := true; 在Form的KeyDown中
if Key = VK_RETURN then
begin
if ActiveControl is TDBGrid or ... then
PostMessage(ActiveControl.Handle, WM_KEYDOWN, VK_TAB, 0);
else
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
Key := 0;
end
Venne 2000-01-13
  • 打赏
  • 举报
回复
那要看你是利用RETURN在几个控件中移动还是在一个类似于TDBGRiD这样的控件中单元移动了。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧