Jak poruszać ScrollBarem (np. od TMemo) za pomocą procedury
TeWuX
Jak poruszać ScrollBarem (np. od TMemo) za pomocą procedury?
procedure TForm1.Rusz_Scroll(Memo: TMemo; Linia: integer);
begin
Memo.CaretPos := Point(0,Linia);
Memo.Perform(EM_SCROLLCARET, 0, 0);
end;
Mam problem ze znalezieniem odpowiedzi wieć napiszę tutaj.
Po wczytaniu długiego tekstu do memo zawsze kursor zostaje na ostatniej linii, mam scroll ale nie wiem jak zrobic żeby automatycznie po wczytaniu wróciło do pierwszej linii.
Proszę o pomoc.
Polecam przemodyfikowac kod:
procedure ScrollDown(Memo: TMemo);
begin
Memo.CaretPos := Point(0,Memo.Lines.Count-1);
Memo.Perform(EM_SCROLLCARET, 0, 0);
end;
W tej chwili - memo bedzie scrollowac do ostatniej dodanej linii (np tak jak jest w czatach ;))
Dwie noce szukałem. Dz :)