8 (1369)

26 Aplikacje w Delphi. Przykłady

26 Aplikacje w Delphi. Przykłady

Rysunek 2.5.

Napis

na formularzu

Pierwszy progiaw_________

Mój program w DELPHI

Korzystając z okna Inspektora Obiektów, wpisz obok właściwości Caption pierwszej etykiety tekst: Mój program. Następnie kliknij dwukrotnie z prawej strony właściwości Font i wpisz w okienku rozmiar liczbę 78, wybierz czcionkę Arial i kolor zielony. Właściwość Transparent ustaw na true.

Zaznacz etykietę Label2. Wpisz obok właściwości Caption tekst: w DELPHI. Atrybuty czcionki zmień tak jak dla etykiety Label2.

Uruchom program.

Sposób 2.

Wyświetlenie na jednej etykiecie napisu w dwóch wierszach wymaga dopisania znaku końca linii po pierwszym wierszu. Można to zrobić, przypisując właściwości Caption tekst będący sumą trzech składników: 'Mój program'+#13+'w DELPHI', ale nie w okienku Inspektora Obiektów. Najlepiej skorzystać w tym przypadku ze zdarzenia OnCreate dla formularza — tego, które występuje w czasie tworzenia formularza. W tym celu należy kliknąć dwukrotnie puste miejsce na formularzu i w procedurze obsługi zdarzenia FormCreate wpisać odpowiednią instrukcję.

procedurę TForml.FormCreatetSender: TObject): begin

Labell.Caption:='Mój program'+#13+'w DELPHI' end;

Przykład 2.3.

Po uruchomieniu programu i kliknięciu etykiety wyświetla się na niej napis Al a ma kota. Rozwiązanie

Umieść na formularzu komponent TLabel. Kliknij dwukrotnie ten komponent i w procedurze obsługi kliknięcia etykiety wpisz instrukcje, jak w procedurze poniżej.