双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

我想改写TEDIT组件，请高手帮忙!

2010-12-21 09:24:51 231 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

骑牛上铂金墨衍会员 · AI 创作全网分发关注 + 加入社区

深入探究Tedit组件的键盘事件和鼠标事件在Delphi 开发过程中，会用到各种各样的VCL组件，每个组件都会有一系列的event(事件). 下面就Tedit 组件，对它的键盘事件和鼠标事件进行一个对比分析。一、键盘事件 OnKeyDownOnKeyDown 事件当按下键盘上的任意一个键，如字母键、数字键、功能键(F1~F12)、Ctrl键、Shift键或Alt键等，都将触发一个 OnkeyDownOnkeyDown 事件. OnKeyPr 阅读详情

我想从Tedit组件派生个子类，要实现的功能：每输入四位数后自动加一空格并只能输入数字如：3080 5300 2202

要如何实现呀？
以前自己没写过控件，想学习学习！

...全文

Delphi组件开发教程指南（2）简单扩充TEdit 上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最基本的方式来创建一个组件！也就是使用Delphi自己的组件开发向导来建立一个新的组件。在这里，我以扩充TEdit为例进行讲解。那么首先，要介绍的就是如何使用Delphi的组件开发向导了！这个向导在Delphi IDE的Componen 阅读详情

骑牛上铂金

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

dyf2001 2010-12-29

打赏
举报

TMaskEdit就可以了，设置属性EditMask = 0000\ 0000\ 0000;1;_

阿发伯 2010-12-25

打赏
举报

使用TMaskEdit试试:

MaskEdit1.EditMask := '0000 0000 0000;1;_';

lowery 2010-12-25

打赏
举报

我是觉得这么一点小小的功能，没必要整理出一个控件，完全可以写一小段代码去处理掉就可以了，再说了，现在cx系列的控件，很多这种类似的组件，完全可以实现的功能，我们自己封装，耗费的时间可能会很多，不划算，出来的效果还未必很好，现有的三方插件，可以多利用一下，不过学学组件的制作也是一个有意思的事情，呵呵

lowery 2010-12-25

打赏
举报

我写过一个把Edit变为只能输入数字的代码，在KeyPress里面，然后你在修改一下，比如
加入一个函数IsModeThree（***）:Boolean，用来判断是否需要加空格。敲入key的时候，判断是不是length是不是整除3，要是，就加一个空格，以前去掉字母，只要数字的代码如下：
procedure Tu_ProSubfrm.cxProSubMoney1KeyPress(Sender: TObject;
var Key: Char);
function CheckSery:Boolean; //判断是否有权限修改经费
begin
Result := False;

end;
function GetSubStrCount(iChar,iText:string):Integer;
var
i,iNumber:Integer;
begin
iNumber := 0;
for i:=1 to Length(iText) do
begin
if iText[i]=iChar then
Inc(iNumber);
end;
Result := iNumber;
end;
begin
if (not CheckSery) and (iState=1) then
begin
MsgHint.ShowWarning('您没有权限修改已经落实好的经费计划');
Key := #0;
Exit
end else
case key of
'0':
begin
If Length(Trim(TcxTextEdit(Sender).Text))=0 then key := #0;
end;
'1'..'9':;
'.':
if GetSubStrCount('.',Trim(TcxTextEdit(Sender).Text))>0 then Key := #0;
#8,#13: ;
else key := #0;
end;
inherited KeyPress(key);
end;

骑牛上铂金 2010-12-24

打赏
举报

自己搞了些代码，能实现每四位数字后自动添加一空格，请指教！

unit Ex_Edit;



interface

uses Messages,StdCtrls,Classes,SysUtils;

type TEx_Edit=class(TCustomEdit)   

  private

   FIfChange:Boolean;

  protected

   procedure Change;override;

  public

   constructor Create(AOwner: TComponent);override;

  published

   property Text;

   property Font;

   

end;

procedure Register;

implementation

procedure Register;

begin

 Registercomponents('Nxl',[TEx_Edit]);

end;

{ TEx_Edit }



procedure TEx_Edit.Change;

var i:Integer; SrcText,DecText:String;

begin

if FIfChange then   

begin

  FIfChange:=False;

  DecText:='';SrcText:=StringReplace(trim(Text),' ','',[rfReplaceAll]);

  clear;

  for I := 1 to Length(SrcText)  do

  if ((i mod 4)=0) then DecText:=DecText+SrcText[i]+' ' else  DecText:=DecText+SrcText[i];

  Text:=Trim(DecText);

  SelStart:=Length(DecText);

  FIfChange:=true;

end;



  inherited Change;

end;



constructor TEx_Edit.Create(AOwner: TComponent);

begin

  inherited;

  FIfChange:=True;

end;



end.

xinghun61 2010-12-22

打赏
举报

其实直接在OnKeyPress中就可以做到，判断Key参数是否有效，无效则设为#0。
不过，想封装到子类中，下面是一点点思路（未测试）：
1. 从TCustomEdit继承，原因是在published中声明的属性会在属性编辑器中显示出来，而TEdit声明了太多没用的属性
2. 重写WMChar函数，其格式为procedure WMChar(var Message: TWMChar); message WM_CHAR;（这个是消息响应函数，可对输入的字符进行处理，在这里结合SelStart和SelLength来判断输入位置）
3. 如果输入无效，则将Message的CharCode设为#0，具体代码可模仿TWinControl的DoKeyPress函数来实现
4. 通过调用RegisterComponent函数，可以将这个类注册成组件，方便后续的使用

YLCN2010 2010-12-22

打赏
举报

[Quote=引用楼主 n29882942 的回复:]
我想从Tedit组件派生个子类，要实现的功能：每输入四位数后自动加一空格并只能输入数字如：3080 5300 2202

要如何实现呀？
以前自己没写过控件，想学习学习！
[/Quote]
这种功能差异性不是很大，没必要自己写控件，直接在相应的事件中处理下就可以了。

骑牛上铂金 2010-12-22