如何动态的读取Delphi中的PopupMenu的Caption
2个回答
展开全部
Procedure TForm1.FormCreate(Sender: TObject);
Procedure DoAddCaption(MenuItem: TMenuItem; List: TStrings);
Begin
If Not MenuItem.IsLine Then
Begin
List.Add(MenuItem.Caption);
End;
End;
Procedure GetChildItemCaption(MenuItem: TMenuItem; List: TStrings);
Var
I: Integer;
Begin
For I := 0 To MenuItem.Count - 1 Do
Begin
DoAddCaption(MenuItem[I], List);
If MenuItem[I].Count > 0 Then
Begin
GetChildItemCaption(MenuItem[I], List);
End;
End;
End;
Var
I: Integer;
alist: TStringList;
Begin
alist := TStringList.Create;
Try
With PopupMenu1 Do
Begin
For I := 0 To Items.Count - 1 Do
Begin
DoAddCaption(Items[I], alist);
If Items[I].Count > 0 Then
Begin
GetChildItemCaption(Items[I], alist);
End;
End;
End;
Memo1.Lines.Text := alist.Text;
//Application.MessageBox(PChar(alist.Text), 'msg', 64);
Finally
alist.Clear;
alist.Free;
End;
End;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
苏州蓝晓生物科技有限公司_
2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品：公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线，年产分离介质50000L，产品质量稳定并达到国际领先水平。核心优势：公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经...
点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
