Lazarus - 为什么这不适用于 ShowModal？

Question

我在拉撒路有两种形式。一个是 frmMain，另一个是 frmSub1。两者都有一个文本框。

以下代码有效。即，单击 frmMain 上的按钮时，值

procedure TfrmMain.cmdShowClick(Sender: TObject);
begin
  frmSub1.Show  ;
  frmSub1.txtAns.text := txtMark.Text;
end;

但是当我将 .Show 替换为 .ShowModal 时，它会显示表单，但 frmSub1.txtAns是空白的。

知道为什么会这样吗？

Answer 1

那是因为 ShowModal 是阻塞调用，即行 frmSub1.txtAns.text := txtMark.Text; 在返回之前不会执行。您必须切换语句的顺序，以下应该按您的预期工作：

procedure TfrmMain.cmdShowClick(Sender: TObject);
begin
  frmSub1.txtAns.text := txtMark.Text;
  frmSub1.ShowModal;
end;