2 (2422)

100

Aplikacje w Delphi. Przykłady

Tabela 8.2. Operacje na tekście z wykorzystaniem schowka
Metoda	Znaczenie
CopyToClipboard	Kopiowanie do schowka zaznaczonego tekstu.
CutToClipboard	Wycinanie zaznaczonego tekstu.
PasteFromClipboard	Wklejanie tekstu ze schowka.
ClearSelection	Anulowanie zaznaczenia.

Rysunek 8.1 przedstawia okno aplikacji dla przykładów 8.2 - 8.4.

Rysunek 8.1.

Okno aplikacji dla przykładów 8.4 - 8.6

Przykład 8.1.

Wstaw na formularzu komponent Memol z zakładki Standard. Korzystając z Inspektora Obiektów wykasuj tekst Memol i wpisz cztery linie tekstu.

Rozwiązanie

Kliknij dwukrotnie w polu znajdującym się z prawej strony właściwości Lines i w otwartym oknie wykasuj tekst i wpisz w czterech liniach nazwy, np.: jeden, dwa, trzy, cztery.

Przykład 8.2.

Dodaj do formularza przycisk typu TButton i etykietę TLabel. W procedurze obsługi zdarzenia OnCl ick dla przycisku wpisz instrukcje wyświetlające na etykiecie drugą i trzecią linię z pola Memol.

Rozwiązanie

Poniższa procedura umożliwia wyświetlenie drugiej i trzeciej linii z pola Memol. Pierwsza linia ma numer 0, ostatnia Lines .Count-1.

procedurę TForml.ButtonlClicktSender: TObject);

var i: integer;

begin

Label1.Capti on: =''; for i:=1 to 2 do

Label1.Capti on:=Label1.Capti on+#13+Memol.Li nes[i];

end: