아래 소스는 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);
도움되시길 바랍니다.
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;