with DataSource.DataSet do
    begin
      case Index of
        nbPrior: Prior;
        nbNext: Next;
        nbFirst: First;
        nbLast: Last;
        nbInsert: Insert;
        nbEdit: Edit;
        nbCancel: Cancel;
        nbPost: Post;
        nbRefresh: Refresh;
        nbDelete:
          if not FConfirmDelete or
            (MessageDlg(SDeleteRecordQuestion, mtConfirmation,
            mbOKCancel, 0) <> idCancel) then Delete;
      end;
    end;

解决方案 »

  1.   

    错了,错了,贴错地方了。
    上传很简单,TBlobField(Dataset.FieldByName('YourImageField')).LoadFromFile
    显示直接用DBIMAGE。
      

  2.   

    to:chechy(chechy)
    上传时要不要用image控件?
    TBlobField(Dataset.FieldByName('YourImageField')).LoadFromFile
    放到button的click事件里吗?
      

  3.   

    上传可以不用Image控件。
    LoadFromFile可以放到Click事件。
      

  4.   

    to:chechy(chechy)
    TBlobField是什么东西啊?
      

  5.   

    看看Help了,是Blob类型的Field。(你看我说了好像跟没说一样,你看看Help吧)