Automatisk scroll i richedit

Du kan vist nok bruge SelStart og SelPos.

Burde det ikke virke!?

Det virker nemlig kun første gang man klikker!
Så går den fint ned til teksten. Anden gang finder den blot teksten, men scroller ikke op/ned til den

Håber du kan hjælpe!

procedure TForm1.ListBox1Click(Sender: TObject);
var
  foundat : Longint;
begin
with richedit1 do begin
foundat := findtext(ListBox1.Items[ListBox1.ItemIndex] ,0,length(richedit1.text),[stMatchCase]);
if foundat <> -1 then begin
selstart := foundat;
setfocus;
selstart := foundat;
sellength := length(ListBox1.Items[ListBox1.ItemIndex]);
end;
end;
end;


/Stalle

Jo, men prøv dette i stedet, jeg nulstiller lige selstart og Sellen måske det hjælper, hvis ikke så prøv at kigge på borland\'s faq eller www.undu.com, jeg mener at havde set et spørgsmål om dette her et andet sted.

procedure TForm1.ListBox1Click(Sender: TObject);
var
  foundat : Longint;
begin
with richedit1 do begin
foundat := findtext(ListBox1.Items[ListBox1.ItemIndex] ,0,length(richedit1.text),[stMatchCase]);
if foundat <> -1 then begin
setfocus;
selstart := 1;
sellength := 0;
selstart := foundat;
sellength := length(ListBox1.Items[ListBox1.ItemIndex]);
end;
end;
end;

martinlind, har fundet ud af at det er Win2k\'s skyld at den kun kan gøre det én gang.

Med Win98 virker det fint!

/Stalle

ellers så prøv dette :

procedure CaretCheck (Value : boolean);
begin
  if not Value then
    raise CaretException.CreateFmt (\'Caret Error: %s\', [SysErrorMessage (GetLastError)])
end;

procedure SetPosition (Value : TPoint);
begin
  CaretCheck(SetCaretPos(Value.X, Value.Y))
end;

også var der jo lige point\'ne *S*

/Martin