C
cwbcherish
Unregistered / Unconfirmed
GUEST, unregistred user!
在运行的界面上有 edit 控件,和 button 控件,
现在想要实现 按下button,后出现 showmessage的提示 "我们都是英雄"
平时是在编译之前在button空件中的click事件中写这样的语句:
procedure TForm2.ButtonClick(Sender: TObject);
begin
showmessage('我们都是英雄');
end;
这是很简单做到的.
我想问的是,如何实现,在edit.text中输入"showmessage('我们都是英雄');"语句,
按下button后会有消息提示的效果 '我们都是英雄'
procedure TForm2.ButtonClick(Sender: TObject);
begin
edit.text;{遐想的语句: 在运行时在edit.text中动态的输入showmessage('我们都是英雄')命令语句;能够做到直接写 showmessage('我们都是英雄') 一侄的效果}
end;
现在想要实现 按下button,后出现 showmessage的提示 "我们都是英雄"
平时是在编译之前在button空件中的click事件中写这样的语句:
procedure TForm2.ButtonClick(Sender: TObject);
begin
showmessage('我们都是英雄');
end;
这是很简单做到的.
我想问的是,如何实现,在edit.text中输入"showmessage('我们都是英雄');"语句,
按下button后会有消息提示的效果 '我们都是英雄'
procedure TForm2.ButtonClick(Sender: TObject);
begin
edit.text;{遐想的语句: 在运行时在edit.text中动态的输入showmessage('我们都是英雄')命令语句;能够做到直接写 showmessage('我们都是英雄') 一侄的效果}
end;
]