发表于 2009-1-5 19:48
| 
鐢―elphi鍒朵綔鍔ㄦ佽彍鍗
鍙戝竷: 2008-6-26 17:34 | 浣滆: admin | 鏌ョ湅: 12娆
鐢―elphi鍒朵綔鍔ㄦ佽彍鍗
銆銆鎵璋撳姩鎬佽彍鍗曟槸鎸囪彍鍗曢」闅忕潃绋嬪簭鐨勬搷浣滃彉鍖栬屽彉鍖栥傜幇鍦紝鎴戜滑鐢―elphi鏉ュ疄鐜拌繖涓鍔熻兘锛屽叿浣撴楠ゅ涓嬶細
銆銆1锛庨鍏堬紝纭畾鍔ㄦ佽彍鍗曠殑鏁版嵁鏉ユ簮锛屽嵆瑕佺‘瀹氬姩鎬佽彍鍗曟爣棰樻槸鏉ヨ嚜Windows鐨勭郴缁熸敞鍐岃〃锛岃繕鏄潵鑷竴涓暟鎹簱锛屾垨鑰呮槸鏉ヨ嚜涓涓瓙鐩綍锛屼富瑕佺敱绋嬪簭鐨勫姛鑳借屽畾銆傝繖閲屽亣璁句富绐楀彛鍚嶄负MainForm锛屼笂闈㈠凡鏈変富鑿滃崟锛屽叾鍔ㄦ佽彍鍗曠殑鏁版嵁婧愭槸涓涓猄tring锛堝瓧绗︿覆锛夌被鍨嬬殑鍙橀噺锛屽悕绉颁负SubMenuItemSource銆
銆銆2锛庣‘瀹氱敓鎴愮殑鍔ㄦ佽彍鍗曠殑鍔熻兘锛屽嵆瀹氫箟鍔ㄦ佽彍鍗曠殑OnClick()浜嬩欢锛屼緥濡傦紝鍔ㄦ佽彍鍗曟爣棰樻潵鑷竴涓鐩樻枃浠跺悕鏃讹紝閭ｄ箞绋嬪簭鍦ㄥ搷搴擮nClick()浜嬩欢鏃讹紝鍙兘鐨勬搷浣滄槸瑕佹墦寮閫変腑鐨勬枃浠躲傚洜姝わ紝瀵硅彍鍗曟墍鍦ㄧ殑涓荤獥鍙ｆā鍧楃殑鍗曞厓绋嬪簭鐨勬暟锛屾嵁鎴戜滑闇瑕佸畾涔塗ype鍚庢坊鍔犱竴涓嚜瀹氫箟鐨勪簨浠禡yClick()銆
銆銆鐒跺悗锛岄渶瑕佺紪鍐欏涓婱yClick锛堬級浜嬩欢鐨勫叿浣撳唴瀹癸細
銆銆procedure TMainForm.MyClick(Sender: TObject);//鍔ㄦ佽彍鍗昈nClick浜嬩欢鍝嶅簲
銆銆begin
銆銆Show.Message(TMenuItem(Sender).Caption)锛//鏄剧ず閫変腑鐨勫姩鎬佽彍鍗曟爣棰,
銆銆end;
銆銆杩欓噷璋冪敤鐨凷howMessage鏍囧噯渚嬬▼(鍦―ialogs.pas涓)鏄剧ずTMenuItem(Sender).Caption锛屽畠灏辨槸閫夋嫨鐨勮彍鍗曢」鐨凜aption锛岀被浼肩敤TMenuItem(Sender).Name鍒欐槸閫夋嫨鑿滃崟椤圭殑Name銆
銆銆3.缂栧啓绋嬪簭灏嗗姩鎬佽彍鍗曟爣棰樻坊鍔犲埌鎸囧畾鐨勮彍鍗曢《涓嬶紝骞跺皢鍏朵笌OnClick()浜嬩欢鑱旂郴璧锋潵銆傚皢浠ヤ笅绋嬪簭娈垫坊鍔犲埌MainForm鐨凮nCreate浜嬩欢杩囩▼涓紝鍙湪绋嬪簭鍚姩鏃跺畬鎴愬姩鎬佽彍鍗曠殑鍔ㄦ佺敓鎴愶細
銆銆procedure TMainForm.FormCreate(Sender: TObject);
銆銆var
銆銆addSubItem:TMenuItem;
銆銆i:Integer;
銆銆begin
銆銆for i:=0 to N do //N绛変簬瑕佹坊鍔犵殑鍔ㄦ佽彍鍗曟暟鐩,闇浜嬪厛瀹氫箟涓烘暟鍊煎瀷鍙橀噺,骞惰祴鍊
銆銆begin
銆銆addSubItem:= TMenuItem.Create(Self);
銆銆addSubItem.Name := 鈥睞鈥诧紜IntToStr(i);
銆銆addSubItem.Caption := SubMenuItemSource; // 姝ラ1鐨凷ubMenuItemSource搴斿厛璧嬪
銆銆FileOpenItem.Add(addSubItem); //鍦ㄥ悕绉颁负FileOpenItem鐨勮彍鍗曢」涓嬫坊鍔犲瓙鑿滃崟
銆銆addSubItem.OnClick:=MyClick; // 姝ラ2鐨凪yClick(),鑷畾涔夎彍鍗曡鍝嶅簲鐨勪簨浠
銆銆end
銆銆end锛
(鏉庢檽鏂)
