Question

delphi程序解读

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;
这段程序是啥意思？

Answer 1

根据下拉框的选择,

手工创建新的窗口并显示嘛..

//这样的代码是动态创建窗体...
Application.CreateForm(TForm3, Form3);
Form3.ShowModal;