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

[骑牛上铂金]

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

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

[亮剑_]

至少得从TCustomEdit继承下来

[「已注销」]

我也觉得，直接判断change事件看看呢

[骑牛上铂金]

主要是想学习下如何写控件

[风之谷]

onchange事件里处理不是很好？

1234455645654645645;

代码里面处理成1234 4556 4567 4645 5645

onkeypress事件里只允许输入数字

[风之谷]

写学习些控件的话，结成customedit 的 text属性 的 onsettext(COnst value:String)事件

加入自己的代码就可以了

[youcunzai]

还要考虑粘贴!还有拖放过来的信息

[骑牛上铂金]

哪位仁兄能给出关键的代码呀，我想以控件的模式把两个功能封装起来，谢谢！

[YLCN2010]

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

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

[xinghun61]

其实直接在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函数，可以将这个类注册成组件，方便后续的使用

[骑牛上铂金]

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

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.

[lowery]

我写过一个把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;

[lowery]

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

[阿发伯]

使用TMaskEdit试试:

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

[dyf2001]

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