一个好像不难的困扰我的问题，请大家帮忙。

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
    if button2.enabled := false then
    begin
    Button2.Enabled := true;
    Enabled := false;
    end;
       
end；
procedure TForm1.Button2Click(Sender: TObject);
begin
    if button1.button1.enabled := false then
    begin
    Button1.Enabled := true;
    Enabled := false;
    end;
end；

Answer 1

想过Enabled := false;的作用吗？它是谁的Enabled？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Enabled:=true;
button1.Enabled:=false;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
button1.Enabled:=true;
button2.Enabled:=false;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Enabled:=false;
end;

Answer 3

你的程序应该可以吧，改成下面试试。procedure TForm1.Button1Click(Sender: TObject);
begin
    Button2.Enabled := true;
    Button2.Enabled := false;    
end；
procedure TForm1.Button2Click(Sender: TObject);
begin
    Button1.Enabled := true;
    Button2.Enabled:= false;
end；

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
    if button2.enabled = false then
    begin
    Button2.Enabled := true;
    Enabled := false;
    end
    else
   begin
   Button2.Enabled := false;
   Enabled := true;
   end
end；
procedure TForm1.Button2Click(Sender: TObject);
begin
    if button1.enabled = false then
    begin
    Button1.Enabled := true;
    Enabled := false;
    end
else
   begin
   Button1.Enabled := false;
   Enabled := true;
   end
end；

Answer 5

不好意思，第一个写错了。    Button2.Enabled := true;
    Button1.Enabled := false;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
beginif button2.enabled = false then
    begin
    Button2.Enabled := true;
    button1.Enabled := false;
    end
    else   begin
   Button2.Enabled := false;
    button1.Enabled := true;
   end
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if button1.enabled = false then
    begin
    Button1.Enabled := true;
    button2.Enabled := false;
    end
else
   begin
   Button1.Enabled := false;
    button2.Enabled := true;
   end
end;

Answer 7

你好，相信你也知道我吧！我给你的程序注释一下，你就明白了。
procedure TForm1.Button1Click(Sender: TObject);
begin
    Button2.Enabled := true;//
    Enabled := false;   //窗体Form1的Enabled为False 所以当然-会(:-让你感觉仿佛是程序死了，其实只是窗体的enabled属性为False罢了。 
end；
procedure TForm1.Button2Click(Sender: TObject);
begin
    Button1.Enabled := true;
    Enabled := false;
end；           
象这种情况，最好做一个procedure 或 function。给你写一个//定义一个过程实现Button1与Button2的相互切换。
//你首先要声明这个过程，最好在private区域内。
procedure TForm1.ChangeEnabled(button:Tbutton);
begin
if button.Name ='Button1' then
begin
    button1.Enabled :=False;
    button2.Enabled :=True;
end
else
begin
    button2.Enabled :=False;
    button1.Enabled :=True;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeEnabled(button1);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ChangeEnabled(button2);
end;

Answer 8

这时候的this是form1，不是你想象的button1,sender是button1procedure TForm1.Button1Click(Sender: TObject);
begin
    Button2.Enabled := true;
    sender.Enabled := false;    
end；
procedure TForm1.Button2Click(Sender: TObject);
begin
    Button1.Enabled := true;
    sender.Enabled := false;
end；就行了

Answer 9

我试过了，需要加button.enabled:=true;直接对enabled 赋值是对form 的操作.