问一个比较简单的问题(10分)

8

845355

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-28

• #1

form1中有edit1,button1
form2中有edit1,button1,button2,button3
我想要form1.button1.click时,form2.show
然后form2.button1.click时,form1.edit.text:=form2.edit.text
两个button1的click事件怎么写?

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-28

• #2

form1.button1.click （Use Form2的单元）
if not Assigned(Form2) then

Form2 := TForm2.Create(self);
if not Form2.Visible then
Form2.Show else
form2.BringToFront;
Form2.btn1.click;（ 先Use Form1的单元）
Form1.Edit1.Text := Edit1.Text;
就这么简单。

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-28

• #3

这个都不会，兄弟需要努力，这不是别人给你解决的问题。

 

8

845355

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-04

• #4

接受答案了.