5 (1804)

Rozdział 3. ♦ Menu główne i podręczne, pasek narzędzi 41

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

if Prostoktl.Checked then Shapel.Visible:=true else Shapel.Visible: =false; end;

Procedura obsługi zdarzenia OnCl ick dla polecenia Koło:

procedurę TForml.KoolClickCSender: TObject): begin

if Kool.Checked then Shape3.Visible:=true else Shape3.Visible:=false: end:

Procedura obsługi zdarzenia OnCl i ck dla polecenia El i psa:

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

if Elipsal.Checked then Shape2.Visible:=true else Shape2.Visible:=false; end:

Przykładowy wygląd okna aplikacji po wybraniu poleceń Prostokąt i Koło zamieszczono na rysunku 3.3.

Forml
Plik Napisy	Różne
	Zmiana l oloru formularza
	Wyświetl figurę ► WM f^5
	, , Elipsa i Nowy Formularz ✓ Koło
	Polecenie menu napis 1

Rysunek 3.3.

Przykład działania menu

Przykład 3.4.

Poleceniu Kalkulator dla menu z przykładu 3.1 przypisz odpowiednią procedurę obsługi.

W poleceniu można wyświetlić nowe okno, na którym będzie utworzony kalkulator, lub skorzystać z funkcji WinExec, która pozwala na uruchomienie programu z poziomu naszej aplikacji. Na przykład uruchomienie kalkulatora systemowego umożliwia instrukcja:

WinExec('C:\WIND0WS\System32\calc.exe',sw_ShowNormal);

Tę instrukcję wpisz do procedury obsługi zdarzenia OnCl i ck dla polecenia Kai ku-

1 ator.

Procedury obsługi pozostałych poleceń menu zamieszczono w rozdziale 6. ze względu na zastosowanie w nich komponentów z zakładki Dialogs, opisanych w tymże rozdziale.