5,928
社区成员




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.