Question

delphi 先弹出对话框才运行主窗口的问题

我想在程序运行前,先弹出一个对话框让用户输入想输入的内容,然后确定后程序才进入主窗口用label将这段用户自己输入的内容调出显示出来...具体怎么实现?

Answer 1

如果只有刚开启需要显示对话框，那建议写在 OnFormCreate。范例：

procedure TForm1.FormCreate(Sender: TObject);
var
  sTmp: string;
begin
   sTmp := inputbox('a', 'b', '');
   edt1.Text := sTmp;
end;

若用在 OnFromShow 或 OnActive 则每次视窗获得焦点都会触发对话框。

Answer 2

1. 主窗口隐藏 Form1.hide;

2. 弹出输入框Fdialog.showmodel;

3. 输入内容后，确定，主窗口label.caption:='输入的内容';

4. 主窗口显示Form1.show;

追问

第一步在哪输入呢?在procedure TForm1.FormCreate(Sender: TObject);第一行就输入么?还是在哪?

追答

在主窗口TForm1.FormShow的事件里写。你试试

Answer 3

假设 主窗口是f1 弹出的是inputbox
在f1 的onshow事件里
var
s:string;
begin
s:= InputBox('请输入您的姓名','姓名:','');
label1.caption:='您输入的姓名是'+s;

end;

追问

如果把这行代码放在onshow里,那默认的formcreate怎么处理?还有,输入的内容显示不全怎么处理?

追答

代码放在on create也一样的
显示不全是因为字体原因 你设置一下字体为汉字 并拖一下长度