Форум - Ответы     (  К темам )
 ?  SKh: Подскажите как узнать месторасположение курсора (08-01-2003 19:40:32)
Подскажите как узнать месторасположение курсора в текстовом поле RichEdit или Memo и как заставить его перейти в заданную позицию?
Заранее благодарен
 Владимир (08-01-2003 22:23:56) http://cbuilder.ru
// что касается получения позиции курсора, то это можно так
void __fastcall TForm1::Button1Click(TObject *Sender)
{
long LineNum;
long CharNum;

LineNum = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0);
CharNum = Memo1->Perform(EM_LINEINDEX, LineNum, 0);
Label1->Caption = IntToStr(LineNum+1)+" : "+IntToStr((Memo1->SelStart-CharNum)+1);

}
 Владимир (08-01-2003 23:04:43) http://cbuilder.ru
TPoint tp = Memo1->CaretPos;
Label1->Caption = IntToStr(tp.x)+" : "+IntToStr(tp.y);
 Владимир (08-01-2003 23:42:56) http://cbuilder.ru
Это если нужны позиции по х у, а если вообще номер символа то

long lg = Memo1->SelStart;

а установить курсор в заданную позицию

Memo1->SelStart = ...

SelStart - указывает позицию первого выделенного символа в тексте, или, если
выделения текста нет, то позицию курсора
 SKh (09-01-2003 05:42:00)
Большое спасибо!
 Владимир (13-01-2003 19:23:15)
// Да, и еще , так можно установить курсор в позицию по X,Y
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
MemoCursor(Memo1, 1, 5); // вместо 1,5 выберите нужную позицию
}
//---------------------------------------------------------------------------

void MemoCursor(TMemo* Memo, int X, int Y)
{
Memo-> SetFocus();
Memo-> SelStart = SendMessage (Memo-> Handle, EM_LINEINDEX,X, 0)+ Y - 1;
PostMessage(Memo -> Handle,WM_KEYDOWN,VK_LEFT,0);
PostMessage(Memo -> Handle,WM_KEYDOWN,VK_RIGHT,0);
}
//---------------------------------------------------------------------------


support@cbuilder.ru