delphi 7 关于onclick事件
我的delphi7的程序中,有3个procedureTForm1.Button1Click(Sender:TObject);事件(on1Clickon2Clickon3C...
我的delphi7 的程序中,有3个procedure TForm1.Button1Click(Sender: TObject);事件(on1Click on2Click on3Click)
那么我的on1Click有一个事件,on2Click有另一个事件,
现在我要让我的on2Click事件
为edit7.Text:='' ;
edit9.Text:='' ;
edit26.Text:='' ;
edit28.Text:='' ;
再加on1Click的事件然后再on2Click的事件
要怎么写代码
举个例子
就是我有Button1,Button2,Button3,edit1,edit2,edit3,
然后
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='111';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.text:='222';
end;
procedure TForm1.Button3Click(Sender: TObject);
edit3.text:='333';
然后执行Button2Click ;
再然后执行Button1Click ;
end;
即再Button3Click的代码中的随意一行利用代码调用别的按钮的onclick事件^_^,这样怎么写代码呢? 展开
那么我的on1Click有一个事件,on2Click有另一个事件,
现在我要让我的on2Click事件
为edit7.Text:='' ;
edit9.Text:='' ;
edit26.Text:='' ;
edit28.Text:='' ;
再加on1Click的事件然后再on2Click的事件
要怎么写代码
举个例子
就是我有Button1,Button2,Button3,edit1,edit2,edit3,
然后
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='111';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.text:='222';
end;
procedure TForm1.Button3Click(Sender: TObject);
edit3.text:='333';
然后执行Button2Click ;
再然后执行Button1Click ;
end;
即再Button3Click的代码中的随意一行利用代码调用别的按钮的onclick事件^_^,这样怎么写代码呢? 展开
4个回答
展开全部
大哥你是不是要写个递归函数呀? 没太看明白你什么意思,如果是写递归函数出口是什么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
真的没看懂你想干什么
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主说的不明白 建议再说具体下
你想实现的真的是递归?
你想实现的真的是递归?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询