Sorry, there may be a terminology misunderstanding here. When you said "position the cursor", I assumed you meant moce the insertion point for the edit control. Ie. Change the position where text would be inserted, if the user starts typing, assuming the control has focus.

If that is what you want, you will probably have to call update() afterwards in order for the effects to be reflected on the screen.

However, there are other possible interpretation of "position the cursor".

You might mean: move the mouse cursor over the richedit control window.

Or you might mean: Give the richedit control the focus, so that the text cursor (otherwise known as the insertion point), appears with the richedit control.

So, 1) you are going to have to clarify your problem (and terminology).

2) it would be much easier for people to assist you if you would post a minimal, working example of your code. It is always a good idea to have a small test app that omits the bulk of your program logic when learning a new library or control.

I finally dug out the one use I made of a RichEdit control, and I forgot a bit.

The final piece of the puzzle is that you need to scroll the window to make the appropriate part of the buffer visible:

$win-> reReport-> SetSel( $re->TextLength, $re_>TextLength );
$win-> reReport-> Scroll( 'bottom' ); 
## Now the selection is off the top

$win-> reReport-> Scroll( -10 );  
## Adjust for the size of window
## and the size of the font.
[download]

See also GetFirstVisibleLine() which can be useful if you are not moving all the way to one extremity or the other.

Sorry about being terse. On selecting an entry in a combobox called 'Parameter' I use the following code to populate a Richedit control:

sub ::cbParameter_Change{defined(my $win = $Win32::GUI::Loft::window{H
+allblacks} ) or return(1);
    my $fh;   # general filehandle
    my $list = $win-> cbParameter-> GetLBText($win-> cbParameter-> Get
+CurSel());
    my $path = getdcwd()."\\Lists\\$list.txt";
    if (!(-e $path)) {
        open($fh, ">$path");
        close $fh;
    };
    $win-> reReport-> Load($path, 1);
}
[download]

and I now wish - using your terminology - to "Give the richedit control the focus, so that the text cursor (otherwise known as the insertion point), appears with the richedit control" AND at the end of it. Hope that helps?

Did you try the code above?

This is what I meant by minimal, working test app. I just cribed it out of that old program that used a RichEdit control. Supply it with a filename on the command line and it will:

1. Creates a main window containing a RichEdit control and both scrolbars.
2. Load the file.
3. Move the insertion point to the end of that file.
4. And scroll the window to show the last 10 line above the insertion point.
5. Sets the focus to the RichEdit control and displays the window.

It should be easy enough to add the relevant bits to your existing app.

#! perl -slw
use strict;
use Win32::GUI;

my $main = Win32::GUI::Window->new(
    -width => 800, -height => 600,
    -name => 'Main',
);
my $re = $main->AddRichEdit(
    -width => $main->ScaleWidth,
    -height => $main->ScaleHeight,
    -hscroll => 1, -vscroll => 1,
);

$re->Load( $ARGV[ 0 ]||die( 'No file' ), 1 );
$re->SetSel( ( $re->TextLength() ) x 2 );
$re->Scroll( 'bottom' );
$re->Scroll( -10 );
$re->SetFocus;

$main->Show();
Win32::GUI::Dialog();

exit;

sub Main_Resize {
    $re->Resize( $main->ScaleWidth, $main->ScaleHeight );
}
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Thanks so muh for your help. From your kind responses and a little bit of searching I came up with:

    $win-> reReport-> SetFocus;
    $win-> reReport-> SetSel(-1,-1);
[download]

which does the trick. Appreciate your time.