RxSpinEdit의 공백 처리가 문제였는데 도움을 받아 디버깅 시는 에러가
나지만 실행 파일을 돌릴때는 처리가 되었습니다. 감사합니다.^^
다음과 같이 코드를 짰는데
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, RXSpin;
type
TForm1 = class(TForm)
se: TRxSpinEdit;
Edit1: TEdit;
procedure seChange(Sender: TObject);
procedure seKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.seChange(Sender: TObject);
begin
try
edit1.text:=floattostr(strtofloat(se.text)*10);
except
se.Text := '';
end;
end;
procedure TForm1.seKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
TRXSpinEdit(Sender).SelectAll;
end;
end;
end.
_________________________________________
OnChange 이벤트를 써서 그런지 숫자를 하나 입력할때마다
edit1.text:=floattostr(strtofloat(se.text)*10);
이것을 실행해서 보여줍니다.
입력된 값을 엔터를 칠때 계산해서 보여주고 싶어서
아래와 같이 OnEnter 이벤트를 써봤는데
아예 계산된 값을 보여주지 않습니다.
물론 화살표를 눌렀을때도 실행이 되야하는데
어떻게 해야하나요.....
-----------------------------------------
procedure TForm1.seKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
TRXSpinEdit(Sender).SelectAll;
end;
end;
procedure TForm1.seEnter(Sender: TObject);
begin
try
edit1.text:=floattostr(strtofloat(se.text)*10);
except
se.Text := '';
end;
end;
end.
-----------------------------------------------
정확히 말씀해 주시면 의도하는 방향으로 말씀드릴거였는데요.....
실행파일 실행시는 저절로 공백은 처리하고. 아래것만 첨부하셔도 될겁니다.
procedure TForm1.seKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
TRXSpinEdit(Sender).SelectAll;
try
edit1.text:=floattostr(strtofloat(se.text)*10);
except
edit1.text := '';
end;
end;
end;