|
ReadOnly를 하신다는걸 까먹었었네..죄송..ㅡ.ㅜ (하루종일 정신이 없어서..)
OnKeyDown 이벤트에서 잠깐만 ReadOnly 속성을 없애면 어떨까요??
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
RichEdit1->ReadOnly = false;
}
그리구나서.. OnKeyUp 이벤트 마지막에서 다시 ReadOnly를 해주면..(넘..꽁수인가요? ㅡ.ㅡ)
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
// RichEdit1->SelStart-=1 -----> RichEdit1->SelStart-1 (수정부분)
RichEdit1->SelStart = RichEdit1->SelStart?RichEdit1->SelStart-1:0;
RichEdit1->SelLength = 1;
ComboBox1->Text = RichEdit1->SelText;
ComboBox1->SetFocus();
RichEdit1->ReadOnly = true;
}
그리고 에러는 제쪽에서는 안나거든요...다시한번 확인해 주세요..
마지막으로 RichEdit에다가 아무것도 남기지 않고 콤보박스로 넘긴다고는 생각 못했습니다..
이건 OnKeyUp 벗어나기 전에 지워주면 되겠져..
그럼 수고하세요..
|