この発言は
#00520　凛              さんのTEditの数値入力専用化　整数/浮動小数
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00527　凛              さん　RE^2:TEditの数値入力専用化 整数/浮動小数




  こんにちは、凛 さん。

  参考にさせて頂きました。ただ、Edit1 に元々 '-10'のような数値が
既にあり、全てが選択状態でマイナスキーの入力ができない事に気づき、
以下のようにしました。

//整数のみ入力可能
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8,#45]) then //#8はBS #45はマイナス符号
    Key := #0;
  if Key = #45 then
  begin
    with Sender as TEdit do
    begin
      if (SelStart=0) and (SelLength=Length(Text)) then Exit;  // 追加
      if (SelStart<>0) or (Pos(#45,Text)<>0) then Key:=#0;
    end
  end;
end;

                牧原博司　QZS03450  - 98年05月05日 (Tue)  00時27分 -

Original document by 牧原　博司　　　氏 ID:(QZS03450)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。