PageUp i Memo-boxe

hva med Memo1.SelStart := 1; ?

SetFocus flytter markøren til TMemo'en, så den dur' ikke.

SelStart fungerer, men skal sættes til 0 for at starte på allerførste position.

Mht. at. scrolle. Der findes en ScrollBy metode som gav mig nogle pudsige resultater så det er nok ikke den bedste metode til det. Prøv at lege lidt med denne message:

  Memo1.Perform(EM_SCROLLCARET, 0, 0);

Jeg fandt lidt mere angående positionering af Caret'en:

procedure GetMemoRowCol (M : TMemo; var Row, Col : LongInt);
begin
  Row := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
  Col := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, Row, 0);
end;

procedure SetMemoRowCol(M : TMemo; Row, Col : Integer);
begin
  M.SelStart := SendMessage(M.Handle, EM_LINEINDEX, Row, 0) + Col;
end;


Mener at have hørt, at TMemoen har en del funktionalitet som Borland ikke implementerede; derfor alle de kald Perform og SendMessage.

Se i øvrigt denne side (her er vist alt om TMemo'en):

http://www.swissdelphicenter.ch/en/tipsbycomp.php?component=Memo

Hej fixxxer & hcr!

Kan ikke få Selstart til at virke og har endnu ikke
afprøvet dit forslag hcr.

Har bestemt mig for at bruge en listbox, når jeg er
færdig med at indtaste de data, der skal kunne ses
og som ikke senere skal ændres.

Hvordan deles I om points?

Nu ved jeg ikke hvordan du prøver at bruge Memo1.SelStart := 0;
Men det gør det du beder om! Eller også beder du om noget andet end det du beder om ? :)

Jeg bruger Memo1.SelStart := 0 som erstatning
for Memo1.SetFocus, altså lige efter at have
indlæst linier i memo'en.

Memo'en mistede focus da jeg testede SelStart - så det er nok der at tingene gik galt hos dig

Jeg har tænkt mig at bruge en listbox, når data
er blevet indtastet, så jeg stopper spørgsmålet.
Tak for denne gang med jeres kommentarer og svar.