Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#102: How can I scroll a text in memo in the run-time?

In few tasks I needs to add a some strings in end of TMemo in run-time but after that I must show a first strings. For example, it's very useful in logging system when you inserted a lot of status messages but user must view a first lines.

This task can be solved in two lines of code:

  <.. to add a lines ..>
  {set a current position of cursor to start}
  SendMessage(Memo1.Handle, EM_SETSEL, 0, 0);

  {scroll a memo to start position}
  SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);

As alternative method you can set a Memo1.Visible := False before insertion of new strings and after that to set a Memo1.Visible := True. You'll receive a same result.

Published: October 26, 2000

See also

	Paradox Viewer
	DBExport tools
	SMMsg suite
	DBLoad
	Fast Document Viewer
	DBISAM Password Recovery
	ABA Document Convert
	MAPIMail
	Mail parser (ActiveX)
	Excel Reader (dll)

Contact to webmaster