编程语言的一个问题

来源:百度知道 编辑:UC知道 时间:2024/05/16 16:13:35
form8窗口就是许多的image组件组成的结构图,每张图下面有个Radiobutton组件,选中后再单击窗口最下方的确定按钮,返回主界面,但主界面的image1显示出上一窗口选中的图形。

procedure TForm1.Button1Click(Sender: TObject);
var str:String;
begin
str:=Combobox1.Text;
if (str='') then
begin
showmessage('请选择要打开的窗体');
exit;
end;
if (str='2') then
begin
Application.CreateForm(TForm8, Form8);
Form8.ShowModal;
exit;
end;
if (str='3') then
begin
Application.CreateForm(TForm3, Form3);
Form3.ShowModal;
exit;
end;

showmessage('嘎嘎,只有选择2,3才给你弹窗口哦.');
end;

end.