4 (2016)

40 Aplikacje w Delphi. Przykłady

Przykład 3.2.

Poleceniom Koniec, Napisl oraz Zmiana koloru formularza dla menu z przykładu 3.1 przypisz odpowiednie procedury obsługi.

Rozwiązanie

Procedura obsługująca polecenie Koniec może mieć następującą postać:

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

Close; //zamknięcie okna end:

Jeśli program składa się z kilku okien, to zamiast procedury Cl ose można wykorzystać procedurę Appl i cati on. Termi nate, która kończy pracę aplikacji i zamyka wszystkie okna.

Procedura obsługi polecenia Napisl:

procedurę TForml.NapisllClickCSender: TObject): begin

Labell.Caption:='Polecenie menu napisl': end;

Dodatkowo na formularzu powinna znajdować się etykieta o nazwie Label 1.

Procedura obsługi polecenia Zmiana koloru formularza wygląda tak:

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

Forml.Color:=clGreen; //zmiana koloru formularza na zielony end;

Menu główne można utworzyć dynamicznie, w czasie działania programu (przykład 22.9).

Przykład 3.3.

Poleceniom z grupy Wyświetl figurą dla menu z przykładu 3.1 przypisz odpowiednie procedury obsługi.

Rozwiązanie

Na formularzu wstaw trzy komponenty typu TShape (figura) z zakładki Additional. Dla każdego z komponentów ustaw odpowiednio właściwość Shape: dla pierwszego na stRectangle (prostokąt), dla drugiego na stCircle (koło) i dla trzeciego na stEllipse (elipsa). Dodatkowo można zmienić kolory wypełnienia figur (właściwość Brush) i kolory obrysu (właściwość Pen).

We wszystkich procedurach wykorzystano właściwość Vis1ble — gdy Visible jest równe true, to figura jest widoczna na formularzu; gdy false, to nie jest widoczna.

Procedura obsługi zdarzenia OnCl ick dla polecenia Prostokąt: