[Delphi] Memo field met code trug laten scrollen

[Stuff]

Met Delphi heb ik een memo field geplaatst op een form. Het memo field is 9 regels groot. Als ik er nu 15 regels aan toe voeg, memExtraInfo.Lines.Add('Text'), dan scrolt het field automatisch naar beneden.

Hoe kan ik nu het memo field resetten zodat hij de text bovenaan laat zien. De scrollbars dienen dus helemaal boven te staan.

Er was iets heel simpels voor omdat te doen, maar ik weet niet meer wat. Uiteraard heb ik gezocht op google en GOT maar kon geen antwoord vinden op mijn vraag.

Alle suggesties zijn welkom.

[LordLarry]

Delphi:

  Memo1.Lines.Add('test');
  Memo1.SelStart := 0;
  Memo1.Perform(EM_SCROLLCARET, 0, 0);

[jelmervos]

Als ik op deze manier een regel toevoeg:

code:

  Memo1.Lines.BeginUpdate;
  Memo1.Lines.Append('Test');
  Memo1.Lines.EndUpdate;

wordt er niet naar beneden ge-scroll-ed

[ Voor 10% gewijzigd door jelmervos op 13-12-2002 19:42 ]

[jelmervos]

LordLarry schreef op 13 December 2002 @ 19:42:

Delphi:

  Memo1.Lines.Add('test');
  Memo1.SelStart := 0;
  Memo1.Perform(EM_SCROLLCARET, 0, 0);

Heeft als nadeel dat de cursor steeds op de eerste positie wordt gezet.

Misschien voor de topicstarter niet echt een nadeel.

[Stuff]

Delphi, dank je wel. Precies wat ik nodig had.
Als ik met Update & Append werk dan scrolt ie niet naar beneden.

[jelmervos]

BeginUpdate en EndUpdate zorgen er tevens voor dat de bewerkingen op je edit ook nog eens sneller gaan.