如何知道popupmenu点击了哪一项？

Question

写一个CLICK事件,然后其它的项的CLICK均引用这一事件,判断SENDER然后再作出相应的动作

Answer 1

写一个CLICK事件,然后其它的项的CLICK均引用这一事件,判断SENDER然后再作出相应的动作

Answer 2

private
ChangeSkinPopItems:array[0..5] of TMenuItem; //换肤菜单
procedure ChangeSkinPopMenuHandler(Sender:TObject);GetChildDir(ExtractFilePath(paramstr(0))+'skin\*.*',SkinList); //取得皮肤的所有样式
  for ChangeSkinPopi:=0 to SkinList.Count-1 do
    begin
      ChangeSkinPopItems[ChangeSkinPopi]:=TMenuItem.Create(Self);
      ChangeSkinPopMenu.Items.Add(ChangeSkinPopItems[ChangeSkinPopi]);
      ChangeSkinPopItems[ChangeSkinPopi].Caption:=SkinList.Strings[ChangeSkinPopi];
      ChangeSkinPopItems[ChangeSkinPopi].OnClick:=ChangeSkinPopMenuHandler;
    end;procedure TTeach_Main.ChangeSkinPopMenuHandler(Sender:TObject);
begin
  with Sender as TMenuItem do
    begin
      SkinIniName:=ExtractFilePath(paramstr(0))+'skin\'+Caption+'\skin.ini';
      MainSkinData.LoadFromFile(SkinIniName);
    end;
end;自己看着加吧~~~~~~~~~

Answer 3

private
ChangeSkinPopItems:array[0..5] of TMenuItem; //换肤菜单
procedure ChangeSkinPopMenuHandler(Sender:TObject);GetChildDir(ExtractFilePath(paramstr(0))+'skin\*.*',SkinList); //取得皮肤的所有样式
  for ChangeSkinPopi:=0 to SkinList.Count-1 do
    begin
      ChangeSkinPopItems[ChangeSkinPopi]:=TMenuItem.Create(Self);
      ChangeSkinPopMenu.Items.Add(ChangeSkinPopItems[ChangeSkinPopi]);
      ChangeSkinPopItems[ChangeSkinPopi].Caption:=SkinList.Strings[ChangeSkinPopi];
      ChangeSkinPopItems[ChangeSkinPopi].OnClick:=ChangeSkinPopMenuHandler;
    end;procedure TTeach_Main.ChangeSkinPopMenuHandler(Sender:TObject);
begin
  with Sender as TMenuItem do
    begin
      SkinIniName:=ExtractFilePath(paramstr(0))+'skin\'+Caption+'\skin.ini';
      MainSkinData.LoadFromFile(SkinIniName);
    end;
end;自己看着加吧~~~~~~~~~