김성철.마법사 님이 쓰신 글 :
: 왕초보 님이 쓰신 글 :
: : 근데 색을 집어 넣어야 하는 그냥 계속 회색으로만 나오네여...
:
: 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 에서만 캐럿을 숨기면 클릭시 캐럿이 나타났다 사라지기 때문에 이렇게 해줍니다.~
: }
:
: 이렇게 해 보세요. ^^