|
▼ DEKOさん
こんにちは。
本当に勉強になります。
>2009 であれば、NumbersOnly なんてステキプロパティが用意されていますよー。
と言うことは、次のような記述をすれば、
コンマつきの表示ができるわけですね
procedure TForm6.Edit1Enter(Sender: TObject);
begin
with sender as tedit do
begin
text:=StringReplace(text,',','',[rfReplaceAll]);
NumbersOnly:=true;
SelStart:=length(text);
end;
end;
procedure TForm6.Edit1Exit(Sender: TObject);
begin
with sender as TEdit do
begin
NumbersOnly:=false;
text:=FormatFloat('#,##',StrToIntDef(text,0));
end;
end;
TButtonEditこれも面白いですね？
ちょっといじくってみます。
|