3 (2251)

Rozdział 8. ♦ Prosty edytor — komponent TMemo 101

Przykład 8.3.

Po kliknięciu przycisku dodaj linię z liczbą losową na końcu pola TMemo.

Rozwiązanie

Wstaw na formularzu komponent TMemo i przycisk TButton. W procedurze obsługi kliknięcia przycisku wpisz instrukcję:

Memol.Lines.Addt Inttostr(Random(10)) );

Kopiowanie,

wycinanie i wklejanie tekstu

Przykład 8.4.

Wykonaj podstawowe operacje na tekście:

a)    kopiowanie,

b)    wycinanie,

c)    wklejanie,

d)    kasowanie zaznaczenia.

Rozwiązanie

Dodaj cztery przyciski TButton i wpisz instrukcje —jak w procedurach poniżej.

1.    Wycinanie do schowka:

procedurę TForml.Button3Click(Sender: TObject); begin

Memol.CutToCli pboard: end:

2.    Wklejanie ze schowka:

procedurę TForml.Button4Click(Sender: TObject): begin

Memol.PasteFromCl ipboard: end:

3.    Kopiowanie do schowka:

procedurę TForml.Button5Click(Sender: TObject); begin

Memol.CopyToCl i pboard; end:

4.    Kasowanie zaznaczenia:

procedurę TForml.Button6Click(Sender: TObject);