질문입니다.
Edit에 입력시 첫자리에 한글이 입력이 안되고 숫자나 영문이
입력이 되게 하고픈데요...
예를 들어 (1가003) ,(A용201).... 이런식으로 입력이 되거든요,,
그러니까 맨 첫번째 자리에는 한글이 입력되지 않게 하고싶습니다..
아예 첫번째 자리엔만 한글이 입력이 안되고 영문이 입력되게끔...
procedure TForm1.Edit1Change(Sender: TObject);
var
tmpStr : String;
begin
tmpStr := Edit1.Text;
if tmpStr <> '' then
if not (tmpStr[1] in ['0'..'9', 'a'..'z', 'A'..'Z', #8]) then Delete(tmpStr, 1, 1);
Edit1.Text := tmpStr;
end;
OnChange 이벤트를 이용하시면 되겠군여..
아래처럼 한번 해보세요..
항상 즐거운 프로그래밍 하시길~~
procedure TForm1.Edit1Change(Sender: TObject);
var
tmpStr : String;
begin
tmpStr := Edit1.Text;
if tmpStr <> '' then
if not (tmpStr[1] in ['0'..'9', 'a'..'z', 'A'..'Z', #8]) then Delete(tmpStr, 1, 1);
Edit1.Text := tmpStr;
end;