230问答网 > delphi7 点击button，更改button的caption。

delphi7 点击button，更改button的caption。

2025-02-01 15:35:47

推荐回答（2个）

回答1：

你这里少了一对BEGIN END;永远都不会变成关闭.完整语句:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled = false then
begin
Timer1.Enabled := True;
Button1.Caption := '关闭';
end
else
begin
Timer1.Enabled := false;
Button1.Caption := '开启';
end;

end;
哦,已经有人答了

回答2：

Procedure TForm1.Button8Click(Sender: TObject);
Begin
If Timer1.Enabled = false Then
Begin
Timer1.Enabled := True;
Button8.Caption := '关闭';
End
Else
Begin //<--
Timer1.Enabled := false;
Button8.Caption := '开启';
End;//<--
End;