LabeledEdit的问题？(20分)

  • 主题发起人 主题发起人 littlecaibird
  • 开始时间 开始时间
L

littlecaibird

Unregistered / Unconfirmed
GUEST, unregistred user!
有8个LabeledEdit，功能是每个LabeledEdit的enter,和exit事件都让它的color变色!!
例如:
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
labeledEdit1.Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
labeledEdit1.Color:=clWhite;
end;

我不想写8个这样的事件，好麻烦!!!
应该怎么做只用写一次就行了
 
无人知？
 

按F11，点击其它LabelEdit的OnMouseEnter及OnMouseExit事件，选择已有的LabeledEdit1Enter及LabeledEdit1Exit即可。
 
to:影子??
f11没有什么反应啊？？
 
继承过来，封装一个控件，不就行了！！
 
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
sender.Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
sender.Color:=clWhite;
end;
所有的LabeledEdit的enter,和exit事件都掉用这两个事件
 
labeledEdit1.Color:=clAqua;
更改为TLabeledEdit(Sender).Color:=clAqua;
另一个事件也同样改动。
刚才将TLabeledEdit写错了，现在改正[:)]

F11调出Object Inspector，或者在菜单中选择View-->Object Inspector
 
to:影子:
我在其它的labededit调用LabeledEdit1.OnEnter不行啊？？
出错？？
 
procedure TForm3.LabeledEdit3Change(Sender: TObject);
begin
LabeledEdit1.OnEnter(Sender);
end;

end.
还是不行？？
 
procedure TForm3.LabeledEdit3Enter(Sender: TObject);
begin
LabeledEdit1.OnEnter(Sender);
end;
这样子是可以了，但是我还是要在每一个控件加这些代码，重复太多了？？
有什么方法只用加上一次就可以了（因为代码都是一样的)
 
全选labeledit设置enter事件都为labeledit1的enter事件
同样设置exit事件，然后改写事件
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clWhite;
end;
 
我先全选所有labeledit控件，然后在:
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clWhite;
end;

只有lableEdit1可以实现，其它的都不行啊？？
麻烦您们再说清一次，我实在太笨了
 
其他的labeledit的onenter事件在object inspector中选择lableedit1enter
 
to:realLearnign
全选labeledit设置enter事件都为labeledit1的enter事件
??是不是选中所有的labeledit控件，
如果是的话，我全选了所用labeledit，然后在labeledit1里写上了上面的代码，还是不行啊？？只有labeledit1可以实现？？
 
大伙帮帮忙啊？？
 
全选了所用labeledit设置他们的onenter事件，在下拉列表中选择labeledit1enter
 
realLearning已经说了很清楚了啊？先写好LabeledEdit1的enter和exit方法，
然后鼠标选中LabeledEdit2，再切换到它的事件页面，在它的enter和exit方法下拉并找到LabeledEdit1的对应方法，在双击后，你就会发现LabeledEdit2的enter和exit方法调用的代码和LabeledEdit1调用的是同样的代码。
其余也是一样……

不晓得这样能不能说清楚……
 
我按shift键选中所有的labeledit，然后在再enter事件里件写上代码.
1，
我所有的labeledit都放到panel1上面，
连panel1都变色了？？
怎么办？？
 
那是你不小心把panel1也点到了吧……
 

我想大家都说得很清楚了，我已经无话可说
要不你给个Email，我发个例子给你

 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
H
这一段代码编译时总出现“ 'END'expected but 'else ' found ,请大侠帮忙！全部分送上！(80分)
回复
4
查看
159
hebiao
H
N
关于Clientdataset.delat的一个问题........(100分)
回复
0
查看
127
nightboy
N
H
动态创建窗体的问题!!!(0分)
回复
5
查看
186
holyszq
H
C
stringgrid指定某个网格的颜色 (50分)
回复
6
查看
85
cnbobo
C
后退
顶部