왕초보 님이 쓰신 글 :
: 근데 색을 집어 넣어야 하는 그냥 계속 회색으로만 나오네여...

void __fastcall TForm1::Edit1Click(TObject *Sender)
{
    HideCaret(Edit1->Handle); //캐럿을 숨긴다.
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    Key = 0; //문자의 입력을 막는다.
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    Edit1->AutoSelect = false;
    Edit1->HideSelection = true;
    HideCaret(Edit1->Handle);    //폼이 그려질 때마다 에디트의 캐럿을 숨긴다.
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    HideCaret(Edit1->Handle); //마우스버튼을 누를 때 캐럿을 숨긴다.
    //OnClick 에서만 캐럿을 숨기면 클릭시 캐럿이 나타났다 사라지기 때문에 이렇게 해줍니다.~
}

이렇게 해 보세요. ^^