打个比方,我有两个事件事件一的代码
edit1.text:='aaaa';
edit2.text:='bbbb';
edit3.text:='cccc';事件二的代码
edit1.text:='aaaa';
edit2.text:='bbbb';那我要怎么样才能让事件二直接引用到事件一的代码,而不需要重新写过呢??
麻烦大家帮帮忙,希望帮忙写出个最简单的例子来先谢谢了..........
注意:是部分代码共享 而不是全部的代码
并不是用 Button2.OnClick := Form1.Button1Click;
edit1.text:='aaaa';
edit2.text:='bbbb';
edit3.text:='cccc';事件二的代码
edit1.text:='aaaa';
edit2.text:='bbbb';那我要怎么样才能让事件二直接引用到事件一的代码,而不需要重新写过呢??
麻烦大家帮帮忙,希望帮忙写出个最简单的例子来先谢谢了..........
注意:是部分代码共享 而不是全部的代码
并不是用 Button2.OnClick := Form1.Button1Click;
begin
edit1.text:= 'aaaa ';
edit2.text:= 'bbbb ';
end;事件一的代码
yourname1;
edit3.text:= 'cccc ';事件二的代码
yourname1;
procedure a;
begin
edit1.text:='aaaa';
edit2.text:='bbbb';
end;
然后调用a;别忘了在前面声明一下。
begin
Edit1.Text := 'aaaa ';
Edit2.Text := 'bbbb ';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(Button1);
Edit3.Text:= 'cccc ';
end;