名前
題名
▼ 白猫さん > ▼ 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これも面白いですね？ > ちょっといじくってみます。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link