千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
hehe,好象大富翁是培训学校,oicq上老师个别辅导。。。
给个辅导费
(2000-06-29 15:40:33) kang
OK
button1的Onclick是Button1Click(sender:TObject);
button2,button3的Onclick也是Button1Click(sender:TObject);
procedure TForm1.Button1Click(sender:TObject);
begin
with Sender as TButton do Enabled:=false;
end;
在放一个Button4
procedure TForm1.Button4Click(sender:TObject);
begin
Button1.Enabled:=true
Button2.Enabled:=true
Button3.Enabled:=true;
end;
你试试看
--------等我到北京再结束问题
给个辅导费
(2000-06-29 15:40:33) kang
OK
button1的Onclick是Button1Click(sender:TObject);
button2,button3的Onclick也是Button1Click(sender:TObject);
procedure TForm1.Button1Click(sender:TObject);
begin
with Sender as TButton do Enabled:=false;
end;
在放一个Button4
procedure TForm1.Button4Click(sender:TObject);
begin
Button1.Enabled:=true
Button2.Enabled:=true
Button3.Enabled:=true;
end;
你试试看
--------等我到北京再结束问题