8 (1364)

44 Aplikacje w Delphi. Przykłady

Wynik działania programu przedstawiono na rysunku 3.6. Możliwość odczytu numerów poleceń da się wykorzystać do wykonania tych samych czynności dla wybranych poleceń menu w jednej procedurze obsługi zdarzenia.

Rysunek 3.6.

Wynik działania programu

Menu podręczne

Większość komponentów wizualnych posiada właściwość PopUpMenu, która umożliwia podłączenie menu podręcznego utworzonego wcześniej za pomocą komponentu typu TPopUpMenu z zakładki Standard. Przykłady przedstawione w tym rozdziale dotyczą menu podręcznego dla formularza oraz etykiety.

Przykład 3.7.

Utwórz menu podręczne dla formularza, składające się z trzech poleceń, które umożliwiają zmianę koloru tego formularza.

Rozwiązanie

Wstaw na formularzu komponent typu TPopUpMenu. Kliknij go dwukrotnie i w otwartym oknie wpisz trzy polecenia: czerwony, zi el ony, ni ebi eski. Kliknij następnie każde polecenie i w procedurach obsługi odpowiednich zdarzeń OnCl ick wpisz instrukcje:

♦    w procedurze dla polecenia czerwony:

Forml.Color:=clRed;

♦    w procedurze dla polecenia zi el ony:

Forml.Color:=clGreen:

♦    w procedurze dla polecenia niebieski:

Forml.Color:=clBlue;

Po utworzeniu menu podręcznego należy powiązać je z jakimś komponentem, w tym przypadku z formularzem. W tym celu można wybrać formularz, po czym w okienku Inspektora Obiektów kliknąć z prawej strony właściwości PopUpMenu i wybrać nazwę utworzonego menu podręcznego.