9 (1270)

Rozdział 2. ♦ Podstawowe składniki aplikacji 27

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

Label1.Caption: = 'Al a ma kota': end;

Przykład 2.4.

Na etykiecie wyświetl napis Ala ma kota w trzech wierszach, wykorzystując właściwość WordWrap.

Rozwiązanie

Treść procedury obsługi zdarzenia kliknięcia etykiety przedstawiono poniżej.

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

Label1.WordWrap:=True:

Label 1.Capti on: ='Al a ma kota'; end;

Właściwość AutoSize powinna mieć wartość true. Ten sam efekt można uzyskać ustawiając w okienku Inspektora Obiektów właściwość WordWrap na true i przypisując właściwości Capti on etykiety napis: Al a ma kota. Wpisywany tekst powinien zawierać spacje.

Przykład 2.5.

Na formularzu umieść etykietę TLabel i suwak TScrollBar. Po zmianie położenia suwaka zmienia się rozmiar czcionki na etykiecie.

Rozwiązanie

Kliknij dwukrotnie komponent TScrol 1 Bar i w procedurze obsługi zdarzenia OnChange wpisz instrukcję:

Label1.Font.Si ze:=Scrol1 Bari.Posi ti on;

Przykład 2.6.

Wyświetl na etykiecie zegar wskazujący czas systemowy i datę.

Rozwiązanie

Wstaw dwa komponenty TLabel i TTimer. W procedurze obsługi przerwania od komponentu TTimer wpisz instrukcję:

Labell.Caption:=TimeToStr(Time); //funkcja Time zwraca czas systemowy Label2.Caption:=OateToStr(Date): //funkcja Datę zwraca datę systemowa

Przykład 2.7.

Na etykiecie wyświetl argumenty i wartości funkcji y = sin(x) dla x e [-180°, 180°] co 30° — po kliknięciu tej etykiety (rysunek 2.6).