Question

我的教科书说我需要创建一个程序/游戏，每当我将指针移到按钮上时，按钮就会移动到表单上的随机位置。然后，我需要一个标签显示我试图点击按钮的次数。这是代码：

procedure TForm1.FormActivate(Sender: TObject);
var
  iCount : Integer;
begin
 randomize;
 iCount := iCount + 1;   //my textbook explains barely anything to me!
end;


procedure TForm1.btnClickMeMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 labelOutput.caption := IntToStr (iCount);
 btnClickMe.Top := Random (Form1.ClientHeight - 5 - btnClickMe.Height);
 btnClickMe.Left := Random (Form1.ClientWidth - 5 - btnClickMe.width);
end;


end.

在我说labelOutput.caption := IntToStr (iCount);的地方，它给出了一个错误Value assigned to 'iCount' never used 在进行其他练习之前，我还需要知道如何做到这一点感谢..

Answer 1

正如其他人告诉你的那样，你需要在Form的界面中声明你的变量（如果你还没有），但更重要的是你需要在按钮的OnMouseMove事件中增加它，而不是在表格{{1事件（您应该使用OnActivate事件）。

试试这个：

OnCreate

type
  TForm1 = class(TForm)
    labelOutput: TLabel;
    btnClickMe: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnClickMeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    iCount : Integer;
  end;

德尔福，帮助需要“让计算机数量”

1 个答案: