BorlandTalk.com

rob kemp · Guest

My application fills in information in RichEdit and displays it as a log file.

However, I need to place the cursor at the begining of the file after the application is done adding info.
How can I do that?

Thanks in advance
Rob

Daniel Mayo · Guest

rob kemp wrote:

JD · Guest

Daniel Mayo <dmayo (AT) dickey-john (DOT) com> wrote:

Daniel Mayo · Guest

Forgot that placing the cursor at the start was a request..
EM_SCROLLCARET was something I have never used; ahh I learn something
new. (and overlooked that he was looking for a RichEdit1; my code would
works fine on a TMemo, and I assumed that they would be the same) and
noted also that to show the cursor with either TMemo or TRichEdit, you
have to send the SetFocus().

Kinda weird that TMemo and TRichEdit don't act the same in this case..

(You can see this feature in the following code snipit and some fooling
around.)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (cdSendSelects->Checked)
{
RichEdit1->SelStart = 0;
RichEdit1->SelLength =0;
Memo1->SelStart = 0;
Memo1->SelLength =0;
}

if (cbSendScollCaret->Checked)
{
RichEdit1->Perform(EM_SCROLLCARET,0,0);
Memo1->Perform(EM_SCROLLCARET,0,0);
}

if (cbSetFocus->Checked)
{
if (rbEndWithFocusOnRichEdit->Checked) RichEdit1->SetFocus();
else Memo1->SetFocus();
}

}

JD wrote: