delphi 动态创建MainMenu 事件
onClick:=abc;Procedureabc(Sender:Tobject);beginwithSenderasTmenuItemdobeginifcaption=...
onClick:=abc;
Procedure abc(Sender:Tobject);
begin
with Sender as TmenuItem do
begin
if caption='a' then
with a_F.Create(nil) do
try
ShowModal;
finally
Free;
end;
if caption='b' then
with b_F.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
end;
以上事件有错么？怎么点了都没反映 展开
Procedure abc(Sender:Tobject);
begin
with Sender as TmenuItem do
begin
if caption='a' then
with a_F.Create(nil) do
try
ShowModal;
finally
Free;
end;
if caption='b' then
with b_F.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
end;
以上事件有错么？怎么点了都没反映 展开
展开全部
貌似没什么错误，用F5设置断点跟踪看看，可能是OnClick事件没有赋值或者赋值的对象不正确，这种一般跟踪调试就可以找到问题了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
