[Delphi]Pasek przewijania w Memo


(K Ilak) #1

Witam,

Szukałem trochę u wujka (Google, rzecz jasna) odpowiedzi na powyższe pytania, odnalazłem tylko skomplikowane nie objaśnione kody.

Chciałbym stworzyć prosty edytor tekstu, jednak nie mam pojęcia jak sprawić, aby pasek przewijania zadziałał, tak jak w standardowym wordzie.

Myślałem nad tym, aby po prostu ScrollBar przeniósł po prostu na odowiednią linijkę tekstu:

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

  Memo1.[b]Lines[/b]:=ScrollBar1.position;

end;

Jednak nie wiem jak zastąpić wyróżniony fragment kodu, tak aby kompilator zrozumiał to poprzez linijkę tekstu.

Korzystam z LAZARUS.