7 (1504)

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

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

Rysunek 3.5.

Przykłady przypisania tej samej procedury obsługi zdarzenia różnym poleceniom za pomocą Inspektora Obiektów

? x

zJ

5B3EB5 d

I Object Inspector ccccl TM*

Properties |Eventsl B Action Action 3Input > OnCfck BLinkage Action

SubMenulmages 3 Miscellaneous

OnAdvancedDra OnDrawItem OnMeasureltem

i~'\ Object Inspector dddddl ; r<

Properties [ Events |

B	Action
	Action
B	Input
B	Linkage			aaaa .............
	Action			eeee I
	SubMenulmages			, ^ J
B	Miscellaneous			-—-*
	OnAdvancedDra
	OnDrawItem
	OnMeasureltem

Przykład 3.6.

Wyświetl na etykiecie numery poleceń menu z rysunku 3.1.

Rozwiązanie

Do formularza z menu (jak na rysunku 3.1) dodaj przycisk TButton i etykietę TLabel. Treść procedury obsługi zdarzenia OnCl ick dla przycisku przedstawiono poniżej:

procedurę TForml.ButtonlClick(Sender: TObject);

var i:integer;

begin

//wyświetlenie numerów poleceń dla OpcjiO 1 abel 1.Capti on:=#13+'OpcjaO'; for i:=0 to OpcjaOl.Count-1 do

Label 1. Caption:=Label 1.Capti on+#13+IntTostr(OpcjaOl.Itemsfi].Menulndex);

//wyświetlenie numerów poleceń dla Opcjil 1 abel 1.Capti on:=1 abel 1.Capti on+#13+'Opcjal': for i:=0 to Opcjall.Count-1 do

Label1.Caption:= Label1.Caption + #13+inttostr(0pcjall.Items[i].Menulndex);

// 0pcja2 nie ma poleceń

//wyświetlenie numerów poleceń podmenu dla Polecenia5 1abel1.Capti on:=1abel1.Capti on+#13 +'Polecenie5':

for i:=0 to Polecenie51.Count-1 do

Label1.Caption:=1abel1.Caption+#13+IntToStr (Polecenie51.Items[i].Menulndex); end;