delphi窗体
同志们,问一下现在有1、2两个窗体,2号窗体时在1号窗体一个3号按钮事件产生的,现在想在2号窗体下的按钮去实现和1号窗体下3号按钮的事件如何同步啊?...
同志们,问一下现在有1、2两个窗体,2号窗体时在1号窗体一个3号按钮事件产生的,现在想在2号窗体下的按钮去实现和1号窗体下3号按钮的事件如何同步啊?
展开
1个回答
展开全部
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Button1.Click;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
MessageBoxA(0,'Form2','Test',0);
end;
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Button1.Click;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
MessageBoxA(0,'Form2','Test',0);
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询