关于sender的问题！请高手指点～～！ ( 积分: 50 )

T

tomtomclub

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #1

在一个页面上有若干edit框，每个都要实现一个OnKeyPress()和OnKeyDown()事件，事件里要获取改edit框中的值。怎么用一个公用的模块来实现？
procedure TForm.Pub_KeyPress(Sender: TObject;var Key: Char);
begin
if key=#13 then begin
。。。
。。。
end;

 

T

tomtomclub

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #2

在一个页面上有若干edit框，每个都要实现一个OnKeyPress()和OnKeyDown()事件，事件里要获取改edit框中的值。怎么用一个公用的模块来实现？
procedure TForm.Pub_KeyPress(Sender: TObject;var Key: Char);
begin
if key=#13 then begin
。。。
。。。
end;

 

F

ffhello

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #3

procedure TForm.Pub_KeyPress(Sender: TObject;var Key: Char);
begin
if(Sender is TEdit)then
begin
tedit(sender).text := tedit(sender).text +key;
end;
end;

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #4

var
str: String;

str := (Sender as TEdit).text;

 

D

daqun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-30

• #5

最简单的办法,在属性编辑器中将每个edit的OnKeyPress()和OnKeyDown()都指向同一个edit的事件就行了.

 

Y

yfc_y

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-04

• #6

str:=tedit(sender).text;