Steve I am not sure if this is the best way, but here is an idea of what to try that worked for me in a test program.
I created a program with a TMemo component and a TButton component, just to be used to add lines to the TMemo via For loop. Once the loop was done, The following code was executed and that seemed to set the cursor at the top. Also the TMemo component it set up with a vertical scroll bar. memo1.SelStart := 0; memo1.SelLength := 0; memo1.SetFocus; I had tried to look for something dealing with Lines Property and the ItemIndex property that is part of the some of the StringLists and such, but I could not find that, so it might not be part of the TMemo component. I hope that this helps. James -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Friday, April 21, 2006 08:46 To: [email protected] Subject: Return to top of memo field Hopefully this will be a quick answer to a question that's been baffling me for a while.... I'm writing output to a log file and using a standard TMemo component. In my main processing, I add lines to the Memo as normal Memo1.Lines.Add('some text'); I have approx. 100 lines in the Memo, and a vertical scrollbar, but when I have finished adding lines to the Memo, I need to return to the 1st line in the Memo rather than getting the User to scroll up to the beginning themselves. I've looked at all the properties of TMemo, and can't find one to do this - can anyone help? Ideally would like a Memo1.ReturnToTop property! Regards, Steve Bowker *************************************************************** Wincanton plc is a leading European provider of supply chain solutions. We design, implement and operate creative solutions for customers in 15 countries. Our business has a turnover of over EUR2.4bn /1.68bn pounds and employs 27,000 staff across 360 locations. Warehousing, transport and specialist services are provided for customers in a range of sectors including automotive, retail, FMCG, petrochemicals and manufacturing. Further information on our unique achievements and competencies can be found by visiting www.wincanton.co.uk **************************************************************** This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual(s) to whom it is addressed. If you have received this e-mail in error please contact IT Service Desk on +44 (0) 870 870 9393 or e-mail [EMAIL PROTECTED] Any views or opinions expressed are solely those of the author and do not necessarily represent those of Wincanton plc or any of its subsidiary companies. Unauthorised publication, use, dissemination, forwarding, printing or copying of this e-mail and its associated attachment(s) is strictly prohibited. Wincanton plc, Methuen Park, Chippenham, Wiltshire SN14 0WT. **************************************************************** _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
