9 (1218)

Rozdział 8. ♦ Prosty edytor — komponent TMemo 107

Inc(kursor.Y);

Inc(kursor.X);

with StatusBarl do Panels[0].Text:='linia='+

IntToStr(kursor.Y)    kol='+IntToStr(kursor.X);

end;

Procedurę wyświetlającą współrzędne położenia kursora w edytorze Memol przypisz zdarzeniom OnCl lek i OnKeyllp dla komponentu TMemo.

procedurę TForml.MemolClickCSender: TObject): begin

pozycja_kursora:

end:

procedurę TForml.MemolKeyllpCSender: TObject; var Key: Word:

Shift: TShiftState); begin

pozycja_kursora; end;