哪位大哥可以帮我下？谢谢了，看起来简单 其实。。 ( 积分: 0 )

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-20

• #1

哪位大哥可以帮我下？谢谢了
在buttonOnclick事件中
如果我点了 edit2的话 我将edit1的值赋给edit2
如果我点了 edit3的话 我将edit1的值赋给edit3

 

D

DragonLucky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-20

• #2

一个笨方法, 僅供參考:
設一變數: SelectID: SmallInt;
在點了Edit2後, SelectID:=2
在點了Edit3後, SelectID:=3

buttonOnclick
Case SelectID of
2: Edit2.Text:=Edit1.Text;
3: Edit3.Text:=Edit1.Text;
end;

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-20

• #3

还有更好的办法吗？

 

T

take2007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-21

• #4

那就直接点啊!!
直接在edit的onenter里面写,edit2.text:=edit1.text

 

B

BurningSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-24

• #5

是不是在EDIT2,与EDIT3中ONEXIT事件中也可以呀！

 

娃

娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-25

• #6

if Edit2.Focused then Edit2.Text := Edit1.Text;
if Edit3.Focused then Edit3.Text := Edit1.Text;

不过按钮一定要用TSpeedButton，因为SpeedButton不会导致当前焦点转移。

 

C

Clearboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-25

• #7

[]
procedure TForm1.txtClick(Sender: TObject);
begin
(Sender as TEdit).Text:=self.Edit1.Text;
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
txtClick(Sender);
end;

procedure TForm1.Edit3Click(Sender: TObject);
begin
txtClick(Sender);
end;

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-25

• #8

看起来简单，实际上也很简单，完全是基础问题，看书足以，不值得一答。

 

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-25

• #9

记住一件事,一个问题不到万不得已不要问人.你可以去问百度,问书.增强自学能力.实在不得已的再问人.这时你会对问题看的更深入,理解的越透彻.

 

W

wutaoqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-26

• #10

接受答案了.