我在公共单位元定义一 EDIT控件的某一事件 ( 积分: 10 )

L

LJH1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #1

我在公共单位元定义一 EDIT控件
的Enter/EXIT/KeyDown等事件吗?
公共单元
procedure EditEnter(Sender: TObject);
begin
//
end;

引用:
Edit1.OnEnter := EditEnter;
但有个问题,编译不过,是怎么回事,如果在当前窗体则没问题,在公共单元就不行,真是奇怪

 

W

wzquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #2

你看看这个代码，当得到焦点时，表签变成蓝色，失去焦点时，标签变成黑色。
控件用的是editlabel
在公共单元中定义
Procedure ViewEnterColor(myEdit:TLabeledEdit);
Begin
myEdit.EditLabel.Font.Color:=clRed;
end;
调用方式：
ViewEnterColor(TLabeledEdit(Sender));

 

L

LJH1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #3

哦,你的意思是
将(Sender: TObject) 换成(myEdit:TLabeledEdit)即可?

 

W

wzquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #4

嗯

 

L

LJH1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #5

我试了还是不行
[Error] auto.pas(271): Undeclared identifier: 'EDITEnter'

 

W

wzquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #6

我一直都是这么用的
我刚才的代码只是在keyenter时的，而且我用的控件是editlabel，不是edit

procedure TClwhForm.AeChEnter(Sender: TObject);
begin
ViewEnterColor(TLabeledEdit(Sender));
end;

 

C

ChrisMao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-11

• #7

是不是没有Uses中添加相应的单元文件呀

 

Z

zyycc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #8

Edit1.OnEnter 是对象的过程
EditEnter 是过程

 

L

levi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #9

不能定义在公共单元，定义到本身表单里面就可以了。

理由如楼上所说

 

L

LJH1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #10

to zyycc 为在本窗体可这样定义
TO levi 我有无数个基本窗体,如果这样的话,同一个事件,一些地方修改了,另一些地方没修改,不是很麻烦?

 

S

snb_ywx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #11

以前我也做过类似的事，定的过程是对象过程就可以的！有点忘了！[]

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #12

定义到其中一个窗体，其它窗体引用就行了

要不，在公共单元定义一个新类
type
TEvents = class
procedure EditEnter(Sender: TObject);
end;

var
Events: TEvents;

这样就能引用了
Edit1.OnEnter := Events.EditEnter;

 

勇

勇者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #13

type TMyedit=class(edit)
private
procedure EditEnter(Sender: TObject);
end;
单元未尾
initialization
myedit:=tmyedit.create(nil);

引用 edit1.onenter=myedit.editenter

 

X

xxagri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-12

• #14

是不是没有连单元名一起引用.如:
公共单元名为 Unit1则 Unit1.Form1.EditEnter.

 

L

LJH1978

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #15

多人接受答案了。