delphi控件组如何调用一个通用程序？(50分)

N

nuaaliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #1

我想在一个窗体中有二十个TEDIT控件，每个控件当触发onmouseover事件时，
都会自动的选择TEDIT中的文字
使用如下程序段：
WITH 控件名 do
begin
selstart：=0；
sellength：=length（控件名.text）
end;

请问如何编写一个通用的调用程序，在每个控件的onmouseover事件中调用，
我不知道该程序如何传递 ：控件名

 

X

xixi12359

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #2

用 Sender as ....

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #3

with TEdit(Sender) do begin
selstart:=0;
sellength:=legth(text);
end;

 

C

coao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-02

• #4

for i:=1 to compenters-1 do
if compentes is tedit then
begin
with compenters as tedit do
selstart:=0;
sellength:=legth(text);
end;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-03

• #5

O

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-10

• #6

搞定了！

 

S

skyrabbit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-10

• #7

二十个TEDIT控件的onmouseover事件都指向同一个OnMouseOver事件句柄例程
WITH TEdit(Sender) do
begin
selstart：=0；
sellength：=length（text）
end;

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #8

// 先设置要实现触发onmouseover事件这些TEdit控件的Tag值为统一的一个值(下面是100);

with TEdit(Sender) do
begin
if Tag =100 then
begin
selstart:=0;
sellength:=legth(text);
end;
end;

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-11

• #9

怎么回事，不是autumn早就搞定了吗？

 

N

nuaaliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-12

• #10

谢谢大家的关心，
搞定后一定给大家加分

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-12

• #11

别忘了给我加分！：）

 

N

nuaaliao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-13

• #12

to automn,：ArJianzeng
这些这是属于delphi中的那一部分,那些书中有的介绍,谢谢
也欢迎别的朋友帮帮忙.

这个问题再加上20分哦!

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #13

什么意思？没有搞定么？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-30

• #14

uaaliao:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-03

• #15

多人接受答案了。