Q&A

  • RxSpinEdit에 직접입력하는 방법??
아래와 같이 OnChange Event를 사용해서
SpinEditBox의 내용으로 계산된 값을
EditBox에 나타내도록 하였습니다.
-------------------------------------------------------
procedure TForm1.RxSpinEdit1Change(Sender: TObject);
var
        i : real;
begin
        i := strtofloat(rxspinedit1.text)*10;
        edit1.text:=floattostr(i);
end;
-------------------------------------------------------
그런데 SpinEdit의 값을 버튼을 눌러 변경할때는
EditBox에 잘 나타났는데

직접입력하려고 할때는
공백을 char값으로 받아서 그런지 에러가 생겼습니다.

그래서 아래의 이벤트로도 해보고
다른 많은 이벤트로 해보았는데 ^^;
잘 안됩니다.... ㅠㅠ 어떻게 해야 할까요....
---------------------------------------------------------
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
        i : real;
begin
        i := strtofloat(rxspinedit1.text)*10;
        edit1.text:=floattostr(i);
end;
0  COMMENTS