Q&A

  • EDIT박스에 소수점 두자리까지만 입력받으려면
EDIT박스에 소수점 두자리까지만 입력받게 하려 합니다
컴포넌트 쓰지않고 코딩으로 처리하는 방법좀알려주세요
1  COMMENTS
  • Profile
    최용일 2002.05.11 03:46
    안녕하세요. 최용일입니다.

    Edit컴포넌트의 OnKeyPress에서 아래와 같이 해보세요...

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    var
      P: Integer;
    begin
        if Key in ['0'..'9', '.'] then
        begin
            P := Pos('.', TEdit(Sender).Text);
            if (P <> 0) and ( (P + 1) < (Length(TEdit(Sender).Text) ) then
                Key := #0;
        end
        else
            if Key <> #8 then
                Key := #0;
    end;

    ^^ 항상 즐코하세요...