关于文本框和程序启动时怎么样得到的CAPS LOCK情况?

[skydqboy]

我想在任务栏上显示当前文本框(富文本框)中光标所在的行和列,那行和列怎么样得到啊?
还有一个是在此程序启动时怎么样判断CAPS LOCK是否已经按下,这样在程序启动时能识别出来??

[xuv2002]

或是这样
在RichEdit1 的OnMouseUp,OnMouseDown OnKeydown OnKeyup
都写
AnsiString column =RichEdit1->CaretPos.y+1;
AnsiString row = RichEdit1->CaretPos.x+1;
StatusBar1->SimpleText="行: "+column+" 列: "+row;

[skydqboy]

行啊好像能用了只要写一个OnMouseDown OnKeydown 就可以了.(对字母)
但老大啊,我写一个汉字,就要占加2啊,而来应该加1的啊,这怎么办??

[BCB]

第二个问题API能解决，让别人先答吧

[xuv2002]

第一个问题简单
AnsiString column = SendMessage(RichEdit1->Handle,EM_LINEFROMCHAR,-1,0)+1; //+1表示第一行为1 ,以下相同
AnsiString row = SendMessage(RichEdit1->Handle,EM_LINEINDEX,-1,0)+1;
第二个不知道

[skydqboy]

AnsiString column = SendMessage(RichEdit1->Handle,EM_LINEFROMCHAR,-1,0)+1; AnsiString row = SendMessage(RichEdit1->Handle,EM_LINEINDEX,-1,0)+1;
StatusBar1->SimpleText="行: "+column+" 列: "+row;

这个好像不对啊,不能跟这着变化啊,还有那个列只往上增加不会减少的,还有什么方法在任务栏上显示?

[xuv2002]

在RichEdit1的OnMouseDown 和 OnKeyDown 事件里面分别
写上以上代码试试

[xc2927]

应该有获得Cap Lock的API，查查，告诉你

[skydqboy]

void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
AnsiString column = SendMessage(RichEdit1->Handle,EM_LINEFROMCHAR,-1,0)+1; AnsiString row = SendMessage(RichEdit1->Handle,EM_LINEINDEX,-1,0)+1;
StatusBar1->SimpleText="行: "+column+" 列: "+row;
}

这好像也不行啊.