|
현모양처 님이 쓰신 글 :
: 에디트박스에서... 그러니까.. 0에서 255까지만 기록이 가능하고 그 이상의 수가 들어가면 에러메시지 박스 띄울려면 어떻게 하면되나요? ^^
안녕하세요 김진수 입니다.
우선 폼에서 inspector -> Keypreview 속성을 true 로 변경합니다...
그리고 edit1 의 이벤트에서 onkeyup 에 다음과 같이 추가합니다.
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Edit1->Text == "") return; //빈폼일경우 그냥 리턴합니다.
if(!(isdigit(Key))) Key=0; // 숫자만을 입력받습니다.
if(StrToInt(Edit1->Text) > 255)
{
ShowMessage("255를 넘었습니다.");
Edit1->Text = Edit1->Text.Delete(4,4); //넘은 숫자부분을 삭제합니다.
}
}
좀 빈약하지만 이를 보시고 원하시는 부분을 추가하셔셔 사용 하세요 ^^;;
|