如何在TEdit控件输入框中输入制表符?-CSDN论坛

如何在TEdit控件输入框中输入制表符?

Delphi > VCL组件开发及应用

收藏回复

[问题点数：40分，结帖人xxyxxb]

⋅如何在TEdit控件输入框中输入制表符? ⋅不懂Python中的(?(id\name)yes-pattern|no-pattern)正则语法，求解 ⋅调用打开对话框时出现一个奇怪的问题 更多帖子 关注私信空间博客 小笨同学 等级 本版专家分：0 结帖率 100%: 问题描述：窗体上有一个TEdit控件，我想在用户按下[TAB]键时输入一个制表符，而不是将焦点移到下一个控件？尝试过在OnKeyPress 和 OnKeyDown 中捕获[TAB]键，无果，求指示。

2012-08-03 09:18:35

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅为什么一些软件是控制台程序 ⋅Delphi XE register 调用约定的参数执行顺序 ⋅Delphi编程技巧总汇--------[持续更新] 更多帖子 关注私信空间博客 s11ss 等级 本版专家分：15859 勋章 红花 2014年10月 Delphi大版内专家分月排行榜第一 2012年12月 Delphi大版内专家分月排行榜第一 黄花 2012年7月 Delphi大版内专家分月排行榜第二 蓝花 2013年8月 Delphi大版内专家分月排行榜第三 2012年8月 Delphi大版内专家分月排行榜第三 2012年6月 Delphi大版内专家分月排行榜第三

在窗体上拖一个TEdit控件，然后拷贝以下代码：

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TEdit = class(StdCtrls.TEdit)

    procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;

  end;



  TForm1 = class(TForm)

    Edit1: TEdit;

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{ TEdit }



procedure TEdit.CNKeyDown(var Message: TWMKeyDown);

begin

  if Message.CharCode = VK_TAB then

    Self.SelText := #9

  else

    inherited;

end;



end.

2012-08-03 11:15:31

点赞只看TA 引用举报 #1得分 13

还可以由窗体处理CM_DIALOGKEY消息。

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

  private

    { Private declarations }

    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{ TForm1 }



procedure TForm1.CMDialogKey(var Message: TCMDialogKey);

begin

  if GetKeyState(VK_MENU) >= 0 then

    with Message do

      case CharCode of

        VK_TAB:

          if GetKeyState(VK_CONTROL) >= 0 then

          begin

            if ActiveControl is TEdit then

            begin

              (ActiveControl as TEdit).SelText := #9;

              Result := 1;

              Exit;

            end;

          end;

      end;

  inherited;

end;



end.

2012-08-03 11:35:57

点赞只看TA 引用举报 #2得分 13

当然还可以由TEdit来处理以下消息的其中一种：
CM_WANTSPECIALKEY
WM_GETDLGCODE

思路源于Controls单元(Delphi 2007)：

procedure TWinControl.CNKeyDown(var Message: TWMKeyDown);

var

  Mask: Integer;

begin

  with Message do

  begin

    Result := 1;

    UpdateUIState(Message.CharCode);

    if IsMenuKey(Message) then Exit;

    if not (csDesigning in ComponentState) then

    begin

      if Perform(CM_CHILDKEY, CharCode, Integer(Self)) <> 0 then Exit;

      Mask := 0;

      case CharCode of

        VK_TAB:

          Mask := DLGC_WANTTAB;

        VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN:

          Mask := DLGC_WANTARROWS;

        VK_RETURN, VK_EXECUTE, VK_ESCAPE, VK_CANCEL:

          Mask := DLGC_WANTALLKEYS;

      end;

      if (Mask <> 0) and

        (Perform(CM_WANTSPECIALKEY, CharCode, 0) = 0) and

        (Perform(WM_GETDLGCODE, 0, 0) and Mask = 0) and

        (GetParentForm(Self).Perform(CM_DIALOGKEY,

        CharCode, KeyData) <> 0) then Exit;

    end;

    Result := 0;

  end;

end;

2012-08-03 11:45:51

点赞只看TA 引用举报 #3得分 14

⋅如何在TEdit控件输入框中输入制表符? ⋅不懂Python中的(?(id\name)yes-pattern|no-pattern)正则语法，求解 ⋅调用打开对话框时出现一个奇怪的问题 更多帖子 关注私信空间博客 小笨同学 等级 本版专家分：0: 受益颇多，谢谢了

2012-08-03 12:55:59

点赞只看TA 引用举报 #4得分 0

收起

收藏回复

小笨同学

等级：

关注私信 TA的帖子

Delphi中如何让TEdit编辑框控件从右边开始输入数据呢？: 如何使编辑框从右边进行... TRightEdit = class(TEdit) protected procedure CreateParams(var Params:TCreateParams);override; end; 声明一个全局的变量： edt2 : TRightEdit; 其次： procedure TRightEdit.C

Delphi 之编辑框控件(TEdit): TEdit 组件主要用于数据的输入和显示和编辑等操作。 AutoSelect 　获取组件焦点。该属性只能在单行文本组件使用。值为True为选中。false则不选中。 BorderStyle 　设置编辑框控件的外观效果。当值为bsSingle，为...

Delphi消除在TEdit控件中按下回车键时的声音.rar: Delphi消除在TEdit控件中按下回车键时的声音，默认情况下是有声音的，本程序会去掉这种操作音，变得很沉静。

TEDIT编辑输入框属性展示: TEDIT编辑框输入框是Delphi最基础的控件之一，这一节我选择这个来展示控制其属性和Delphi桌面程序一样，非常简单易用。在这个实列中，我选择了13个可见属性进行控制。可以看出效果还是不错的，基本上VCL能...

Delphi中如何使用TEdit控件和TListBox控件组合使用达到TComboBox控件一样的效果呢？: 如何用TEdit控件+TListBox控件实现和TComboBox控件一样的效果呢？首先：向界面拖一个TEdit控件和TListBox控件，将TListBox控件放到TEdit控件正下方。取名分别为：edt1和lstbox。其次：给TEdit控件添加一个...

Delphi 进入TEdit控件时选中该控件中的内容: var edtNo:TEdit; 第一次尝试在onEnter事件中增加事件 ...TEdit的AutoSelect属性，是确定控件获得焦点时是否自动选择Edit控件中的所有文本。默认情况下，AutoSelect属性的值为TRUE。当控件获得焦点

TEdit saves too many chests to world?: <p>Here is the world, literally no changes made, just opened and saved in a version of TEdit. Suddenly its showing 1045 chests and will no longer load... http://vps.tls.id.au/tedit.wld</p> <p>If you ...

如何利用vb6.0编程软件的循环语法功能实现循环语句对控件是否调用属性的判断？: 如何利用vb6.0编程软件的循环语法功能实现循环语句对控件是否调用属性的判断？怎么实现是否调用属性这个功能的判断操作？

限制TEdit控件只能输入数字,小数点和负号: 执行这些代码，Edit1只能输入数字、小数点和负号，负号和小数点只能输入一个，负号必须在最前，粘贴的数字必须完全正确，不能以限制Ctrl_V的使用为前提。 type TForm1 = class(TForm) Edit1: TEdit; procedure ...

delphi InputBox输入密码用*代替，怎样让delphi的inputbox输入框显示密码代表符*: 定义 Mydialogs.pas unit Mydialogs; interface ...uses Windows, Graphics, Forms, StdCtrls, Consts, Dialogs, Controls,SysUtils,Types;...function GetAveCharSize(Canvas: TCanvas): TPoint;...

delphi负数变正数_delphi 限制TEdit控件只能输入数字,小数点和负号: 执行这些代码，Edit1只能输入数字、小数点和负号，负号和小数点只能输入一个，负号必须在最前，粘贴的数字必须完全正确，不能以限制Ctrl_V的使用为前提。typeTForm1 = class(TForm)Edit1: TEdit;procedure ...

Inno Setup编译器自定义输入控件 并动态写入xml配置文件: 任务要求：安装软件时需要自定义输入配置信息。完成过程： 1.首先需要了解Inno Setup的自定义控件 2.取文本框值 3.读取配置文件 4.将文本框的值写入到配置文件。方式有很多，比如可以不用读取，直接生成一个...

Delphi中限制文本框(TEdit)只能输入小数: 有些时候需要限制程序里的文本框(这里指TEdit控件)里只能输入某些特定字符。比如说限制只能输入数字，这时可以设置 TEdit的NumbersOnly属性来实现，这里的TEdit将被限制为只能输入0到9这十个字符。那么，如果需要...

Delphi中限制文本框(TEdit)只能输入数字: procedure Tform1.Edit1KeyPress(Sender: T... edt: TEdit; str, strL, strR: string; p: integer; begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写). edt := TEdit(Sender); str :

在 Android 的文字编辑控件 (TEdit) 中, 如何按下 Enter 就隐藏虚拟键盘: 在 Windows 的应用中，我们常常为了让使用者能够快速输入，在Edit元件中的onKeyUp或者 onKeyDown 事件中主动侦测使用者输入的字元是否有换行符号 (Enter),当使用者按下了Enter,程式码就主动把游标 Focus 带到下个...

只允许输入数字的Tedit组件Delphi用法..rar: 只允许输入数字的Tedit组件Delphi用法..rar

在Delphi XE5 FireMonkey中设置TEdit中的光标位置: 以前的旧文章里都是介绍用SelStart和SelLength，但是这是在VCL里用的。在FMX里Edit类不能用这两的属性来设置光标位置。要用CaretPosition属性。

Delphi 进入TEdit控件时选中该控件中的内容，不使用SelectAll　: //Edit1 OnClickprocedure TForm1.Edit1Click(Sender: TObject);beginT(Custom)Edit's AutoSelect property determines whether all the text in the edit control is automatically selected when the control ...

原来的控件delphi7里何处寻？: 经常有朋友提这样的问题，“我原来在delphi5或者delphi6中用的很熟的控件到哪里去了？是不是在delphi7中没有了呢？这是不是意味着我以前写的代码全都不能够移植到delphi7中来了呢？是不是我必须...

TEdit控件如何禁止，使能其OnChange事件？？？

SWT中在表格上添加控件，TableEditor的使用: package test; import org.eclipse.jface.viewers.TableViewer; import org.eclipse.jface.viewers.TableViewerColumn; import org.eclipse.swt.SWT; import org.eclipse.swt.custom.TableEditor;...

Delphi如何消除TEdit控件按回车后的系统声音

Delphi中如何让编辑框只能输入数字或者只能输入一个浮点数值呢？: 在Delphi中使用TEdit控件的时候我们有些时候让该控件只能输入数字，或者只能输入一个浮点小数。首先来实现一个编辑框接收键盘按下只能是数字的方法：向界面拖一个TEdit控件。取名为：edt1. 其次：添加键盘...

自定义TEdit的允许输入字符: TEdit组件有一个OnKeyPress事件，在该事件中有一个Key参数，其中存储了用户当前输入的字符，如果设置这个参数为#0，就可以屏蔽用户的输入，从而实现自定义输入字符的功能，为此添加响应代码如下： procedure TForm1...

控制输入框只能输入数字: （一）TEdit、TDBEdit、TComboBox、TDBComboBox的输入分三种类型限制：（1）任意输入（2）整数输入（3）浮点数输入限制的项目如下：（1）整数输入只能输入数字0-9、+、- （2）浮点输入只能输入数字0-9、+、-、...

Oracle数据库: 本课程主要讲解如下内容：Oracle体系结构、Oracle 基础管理、SQL 语言、Sequence和同义词、数据字典及用户管理、E-R模型、Power Designer设计工具。在本

c语言项目开发实例: 十个c语言案例（1）贪吃蛇（2）五子棋游戏（3）电话薄管理系统（4）计算器（5）万年历（6）电子表（7）客户端和服务器通信（8）潜艇大战游戏（9）鼠标器程序（10）手机通讯录系统

Java面试题大全（备战2021）: 这本面试手册包含了Java基础、Java集合、JVM、Spring、Spring Boot、Spring Cloud、Mysql、Redis、RabbitMQ、Dubbo、Netty、分布式及架构设计等方面的技术点。内容难度参差，满足初中高级Java工程师的面试需求。

c# 全套视频: 100G ，学习的时候抽部分来看，效果很好

微信小程序开发实战: 本套课程使用了元认知教学法，直接实战式教学，摆脱学院派的理论式讲解，对于0基础的学员可以入门

相关热词 c#请求接口数据 c#编辑模板 c# 内存存储 c# poi 生成图表 c#页面弹出页面选择框 c#从服务器加载窗体单链表代码c# c#mvc过滤器 c#调用dll 单实例 c# 异步更新ui