Q&A

  • StringGrid에 서 특정셀 한글문자변환은
StringGrid에 서 특정셀 문자변환은 어떻게 하는지 알고 싶습니다

10개의 셀이 있는데 모두 숫자 필드인데 한필드가 한글로 입력해야합니다

어떻게 해야하는지 알고 싶습니다

1  COMMENTS
  • Profile
    김태진 2008.04.26 23:00
    아래 소스는 2번째 컬럼만 한글로 자동전환되어 입력되게 하는 예제입니다.
    도움되시길 바랍니다.

    procedure TFormSLMailSend.MyGridSelectCell(Sender: TObject; ACol,  ARow: Integer;
                                                                                     var CanSelect: Boolean);
    { OnSelectCell 이벤트 }
    var Data : HIMC;  // 한글로 전환
    begin
        Data := ImmGetContext(self.Handle); //핸들을 얻어옴

        if ACol = 1 then begin   // 2번째 컬럼 ( 0부터 시작하니깐 1로)
           if not ImmGetOpenStatus(Data) then begin
              ImmSetConversionStatus(Data, 1, 0); //1이면 한글로 세팅 0:영문
           end;
        end else ImmSetConversionStatus(Data, 0, 0);

        ImmReleaseContext(self.Handle, Data); //핸들을 해제
    end;