"// Overby" <danielFJERNES@FJERNESoverbyhansen.dk> skrev i en meddelelse
news:avebjn$bci$1@news.cybercity.dk...
> Hejsa...
>
> Jeg har et RichEdit felt som jeg fylder op med tekst via Add-proceduren.
Når
> jeg så er færdig står scrollbaren i bunden af felten. Det skal den ikke,
den
> skal være i toppen - hvordan gøres dette? Jeg har leget lidt med SelStart
> osv., men kan ikke lige få den til det....
>
> Daniel
>
Du kan f.eks bruge sendmessage med EM_LINEINDEX
En anden mulighed er at simulere tastetryk ctrl +home
vh.
Yngve
eks.1
RichEdit1.setfocus;
RichEdit1.SelStart := SendMessage(RichEdit1.Handle,EM_LINEINDEX, 0, 0 );
eks. 2
RichEdit1.setfocus;
setForeGroundWindow(TWinControl(RichEdit1).handle);
keybd_event(vk_Control,mapVirtualKey(vk_Control,0),0,0);
keybd_event(vk_home,mapVirtualKey(vk_home,0),0,0);
keybd_event(vk_home,mapVirtualKey(vk_home,0),keyeventf_KeyUp,0);
keybd_event(vk_Control,mapVirtualKey(vk_Control,0),keyeventf_KeyUp,0);
|