请问怎样在statusbar中加属性datasource和datafield,能够实现如下功能:帮帮忙,回答一定给分!(100分)

  • 主题发起人 主题发起人 轻功水上飘
  • 开始时间 开始时间

轻功水上飘

Unregistered / Unconfirmed
GUEST, unregistred user!
在statusbar中加datasource 和datafield属性,使它能够与数据库相连,并在
panels中显示出其记录。如dbgrid中的一条记录有三个字段,则有三个panel,显示其记录并随
dbgrid的焦点改变而改变相应的记录值。
谢谢了!
 
怎么没人回答,我顶一下。在线等待呢!
 
通过交换事件处理就可以实现了.具体是:1、定义TDataSetNotifyEvent:New_AfterScroll,Old_AfterScroll,
在SetDataSet 全程中 保存 FDataSet.OnAfterScroll,将New_AfterScroll 赋给FDataSet.OnAfterScroll,然后在 New_AfterScroll 中处理 Old_AfterScroll ;
TMyStatusbar.SetDataSet(Value:TDataSet) ;
Begin
..
if Value<>Nil then
begin
Old_AfterScroll ;= FDataSet.OnAfterScroll ;//交换事件
FDataSet.OnAfterScroll := New_AfterScroll ;
end ;
end ;
TMyStatusbar.New_AfterScroll(DataSet:TDataSet) ;
begin
..//现在可以添加你的处理代码了,即给Panel 赋值 (当前记录就 DataSet.FieldByName('xxxx').AsString)
//别忘了帮人干活
if Assigned(Old_AfterScroll) then
Old_AfterScroll(DataSet) ;
end ;
 
各位大虾好!有空请参观本人站点(下载110)
http://www.down110.com
欢迎提出建议,大家一起进步!Email:web@down110.com
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
551
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部