Question

我必须为学校开展预测游戏。为了让2个随机队伍相互比赛，我在表格1上完成了以下代码：

procedure TfrmUserInput.FormCreate(Sender: TObject);
const
arrT1 : array[1..6] of string = ('Blue Bulls','Griquas','EP Kings','Sharks','Cheetahs','Valke');
arrT2 : array[1..6] of string = ('Lions','Pumas','Leopards','Western Province','Kavaliers','Eagles');
begin
Randomize;
sTeam1 := arrT1[Random(5)+1];
Randomize;
sTeam2 := arrT2[Random(5)+1];
lblT1Pred.Caption := (sTeam1 + ' predicted score :');
lblT2Pred.Caption := (sTeam2 + ' predicted score :');
rbTeam1.Caption := sTeam1;
rbTeam2.Caption := sTeam2;
end;

在第二种表格中，我有以下内容：

procedure TfrmAdminInput.FormCreate(Sender: TObject);
begin
rbT1.Caption := sTeam1;
rbT2.Caption := sTeam2;
end;

sTeam1和sTeam2是全局变量。

现在在第4个表单上，我点击一个按钮开始预测下一个游戏 - 因此我需要选择其他2个随机团队，起初我想创建重复数组并使用以下代码，但它给出了我是'未声明的标识符：lblT1Pred'的问题 - 这个问题对于lblT2Pred和第二个表单上的标签（rbT1.Caption和rbT2.Caption）以及表单1上的单选按钮标题是相同的。代码如下：

sTeam1 := arrT1[Random(5)+1];
sTeam2 := arrT2[Random(5)+1];
frmUserInput.lblT1Pred.Caption := (sTeam1 + ' predicted score :');
frmUserInput.lblT2Pred.caption := (sTeam2 + ' predicted score :');
frmUserInput.rbTeam1.Caption := sTeam1;
frmUserInput.rbTeam2.Caption := sTeam2;
frmAdminInput.rbT1.Caption := sTeam1;
frmAdminInput.rbT2.Caption := sTeam2;

表单1是frmUserInput，表单2是frmAdminInput，表单4是frmWinners。

因此，修改我想要做的是通过单击表单4上的按钮更改表单1和表单2上的标签和单选按钮的标题（此按钮还将隐藏表单4并显示表单1）。

Answer 1

如果您在Unit1中定义了名为Form1的全局变量，并且该表单具有名为Label1的标签，那么您可以从其他单元访问它，如下所示：

将Unit1添加到另一个单位的uses子句中。
请参阅标签Form1.Label1。

为了避免循环引用，您可能需要将Unit1添加到其他单元的实现部分中的uses子句中。

那就是说，我希望表格能够提供一种公共方法来完成工作，而不是让所有人和其他私人部分一起玩。

我想通过单击另一个表单Delphi 7上的按钮来更改一个表单上标签的标题

1 个答案: