从表单外部获取数据

Question

我有一个主窗体和标签页，里面有一些页面。

在第一页上有一个带标签的编辑，比如编辑1。在2页上有一个按钮，可以打开一个新窗口（窗体）。 在此表单上将有另一个标记的编辑说edit2。

问题是：如何将edit1的值与edit2的值进行比较？

Answer 1

你需要：

1. 对主要表单的引用，例如MainForm: TMainForm和
2. 对其他表单的引用，例如OtherForm: TOtherForm。

然后你可以写：

if MainForm.Edit1.Text = OtherForm.Edit2.Text then
  ....

那会有效。但如果你的两个表格通过公共财产公开文本会更好。这样可以避免你需要在内部找到它们。

Answer 2

如果表单由show（）显示，可能的解决方案可能是：

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show();
  if self.edit1.text= form2.edit2.text
    then ShowMessage('Equals!');
end;

但是，如果form是DMI子项，则此解决方案没有多大意义，因为无法保证值的更改。如果您使用ShowModal（），这将有效。