Question

delphi中如何用一个按钮控制开与关两个状态

delphi中如何用一个按钮（什么按钮控件），控制开与关两个状态？点一下按钮为开，点第二次为关，未点第二次时一直处于开的状态。谢谢，初学delphi，书又未到，麻烦会的帮助下。

Answer 1

重新写了一下，完整的如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
iStatus:Boolean;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
iStatus := not iStatus;
if iStatus then
Button1.Caption := '开'
else
Button1.Caption := '关';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := '关';
iStatus := False;
end;

end.

Answer 2

可以，像这样写：
if button.caption='开' then
begin
button.caption='关';
end
else
begin
button.caption='开';
end;

Answer 3

直接用checkbox不就行了？选中就为开，没选中就为关。

Answer 4

用speedbutton