1个回答
展开全部
新建一个窗口在放两个BUTTON组件
编写下面代码
procedure TForm1.Button1Click(Sender: TObject);
button1.Enabled:=false;
button2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Enabled:=false;
button1.Enabled:=true;
end;
end.
编写下面代码
procedure TForm1.Button1Click(Sender: TObject);
button1.Enabled:=false;
button2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Enabled:=false;
button1.Enabled:=true;
end;
end.
更多追问追答
追问
为什么我的没反应,其实我根本没学过这个,老师让我们自己下载delphi自学先,所以我啥都不懂
追答
我这边测试过过可以用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询