9 (1265)

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

Przykład 3.8.

Utwórz menu podręczne dla etykiety składające się z trzech poleceń, które zmieniają krój czcionki tekstu na etykiecie.

Rozwiązanie

Wstaw etykietę i komponent typu TPopUpMenu. W poleceniach menu wpisz: Ari al, Amel i a, Allegro (lub nazwy innych czcionek). Następnie przypisz poleceniom akcję polegającą na zmianie kroju czcionki napisu na etykiecie i podepnij menu podręczne pod etykietę Labell.

Treść procedur obsługi poleceń przedstawiono poniżej:

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

Labell.font.Name: = 'Arial': end;

procedurę TForml.AmelialClick(Sender: TObject): begin

Labell.font.Name: ='Amel i a BT': end:

procedurę TForml.AllegrolClickCSender: TObject); begin

Labell.font.Name:='Allegro BT'; end;

Program możemy uprościć, wpisując tylko jedną procedurę obsługi zdarzenia, i podpiąć ją za pomocą okienka Inspektora Obiektów pod wszystkie polecenia podmenu (patrz przykład 3.3 b). W procedurze wykorzystano właściwość Menulndex.

procedurę TForml.AriallClick(Sender: TObject);

var i:integer;

begin

i := (Sender as TMenuItem),MenuIndex: case i of

0: Labell.Font.NameArial';

1: Labell.Font.Name:='Amelia BT';

2: Labell.Font.NameAllegro BT'; end:

end;

„Polskie litery” w nazwach poleceń menu

W Delphi 2006 właściwie nie ma problemu tzw. polskich liter. Standardowo litery te wpisujemy z prawym klawiszem Alt (np. jak w Wordzie).

W starszych wersjach Delphi (5, 6 lub 7) możliwe było pisanie tzw. polskich liter z prawym klawiszem Alt po wybraniu Tools/Editor Options i zmianie na zakładce Display