问题解决一下

Question

procedure Tgb_k.PageControl1Change(Sender: TObject);
begin
if DM.CDS_gb_01.state=dsInsert  then
 begin
 image1.Visible:=false;
 end
else
try
image1.Picture.LoadFromFile(dm.CDS_GB_01.fieldbyname('photo').asstring);
except
ShowMessage('sorry,no picture');
end;
end;为什么 我用 DBNavigator1 组件 下移一条记录时怎么还是显示上一条记录的图片？？？？帮帮忙  

Answer 1

在DBNavigator1 的 DataSource的DataChange中调用PageControl1OnChange(self);试试看。

Answer 2

我在 DataSorce 中找不到 DataChange中调用PageControl1OnChange(self);
我用d6编写的 你是否用d7???

Answer 3

在数据集中有个afterscroll 的事件中处理。     绝对没错！像 table.query.adotable.adoquery都有这个事件。====================================================================                           ... 我疯了.....====================================================================

Answer 4

在数据集中有个afterscroll 的事件中处理。     绝对没错！????  哪？

Answer 5

在数据集中有个afterscroll 的事件中处理图片的移动

Answer 6

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
//在这里调用显示图片的过程
  LoadPic;
end;procedure TForm1.LoadPic;
begin
  try
    image1.Picture.LoadFromFile(dm.CDS_GB_01.fieldbyname('photo').asstring);
  except
    ShowMessage('sorry,no picture');
  end;
end;只是示例，假设数据源在当前form上。