各位大侠,这个功能如何实现? 比如一个form 有三个按钮,点击第一个和第二个按钮各有一个功能,方法已经实现。现在怎么实现 :点击第三个按钮,实现相当于同时点击了第一个和第二个按钮的功能呢?谢谢指导~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在button3的click中添加button1.click;button2.click;嘿嘿或者直接写onbutton1click(button1);onbutton2click(button2);示意代码,呵 Button1.click;Button2.click; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage('1');end;procedure TForm1.Button2Click(Sender: TObject);begin ShowMessage('2');end;procedure TForm1.Button3Click(Sender: TObject);begin self.Button1.Click; self.Button2.Click;end;end. 急急急~!!!如何使用DBGrid处理多条记录??? 有没有想做兼职的? TbitBtn控件的问题 ACCESS数据插入问题(100分) 如何在install shield for d4 中运行其它的程序? 关于 windows api 复制函数问题 如何禁止在webbrowser装载网页时的"哒"声音? 有谁清楚虚拟光驱技术能指导我一下吗? 在Delphi中带参数调用.exe,.com文件和运行dos下.bat文件方法大收集(绝对给分) 朋友们看在申奥成功的面子上就进来帮兄弟一把吧!!(与加油机的接口协议有关) delphi与数据库开发相关书籍 DELPHI中升级数据库
在button3的click中添加
button1.click;
button2.click;
嘿嘿
或者直接写
onbutton1click(button1);
onbutton2click(button2);
示意代码,呵
Button2.click;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('1');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('2');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
self.Button1.Click;
self.Button2.Click;
end;end.