if ($name1 == ""){
$answer => $frm_name1->messageBox(-title => 'Please Reply', -message => '请输入主机名?', -type => 'YesNo', -icon => 'question', -default => 'yes');
undef $name1;
}
此时的父窗体为 $frm_name1,则弹出对话框在$frm_name1上
如果改为$mv ->messageBox 则弹出对话框在$mv上