AfterScroll 事件必须是光标滚动才有效。
onclick     事件必须是点击才有效。我想让onclick 事件触发的时候,AfterScroll 也起作用,该怎么办阿?

解决方案 »

  1.   


    可以啊在OnClick中写下:控件名称.OnAfterScroll(Sender);老兄,你应该把控件的名称说出来啊
      

  2.   

    ....   onclick(...)begin 
     
       form1.AfterScroll
    .
    .
    .
    .end
      

  3.   

    让onclick 事件触发的时候,AfterScroll 也起作用?
    你是想点击的时候滚动光标?:-)
      

  4.   

    可以在OnClick可件中写下:
      dataset.AfterScroll(Sender);
      

  5.   

    写在函数里不就行了,随你在哪里调用
    haoco(程序员) 的也可以
      

  6.   

    ...Click(sender)
    begin
      DataSet1BeforeScroll(DataSet1);//DataSet1可以中你的Table和Query名字
    end;
    老兄,好象有AfterScroll和BeforeScroll,没有看到OnScroll呀。
      

  7.   

    对呀,我就是想点击的时候滚动光标。光标滚动事件:procedure TForm3.ADOQuery2AfterScroll(DataSet: TDataSet); var   id:Integer;
    begin
        id:=ADOQuery2.FieldByName('groupID').AsInteger;
        str1:=form1.FlatEdit1.Text;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Text:='select * from friendInfo where userlogin='''+str1+''' and groupID='+inttostr(id)+' order by friendname';
        ADOQuery1.Open;
    end;点击事件:procedure TForm3.dxDBTreeView1Click(Sender: TObject);
    form3.ADOQuery2AfterScroll(Sender);
    var T_id,id:Integer;
    begin
       t_id:= adoquery2.FieldByName('groupID').value;
       if t_id<>0 then
    begin
       str12:=form1.FlatEdit1.Text;
       ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Text:='select * from users where userlogin='''+str12+'''';
       ADOQuery1.Open;
       id:=ADOQuery1.fieldbyname('userid').value;   ADOQuery2.Close;
       ADOQuery2.SQL.Clear;
       ADOQuery2.SQL.Text:='select groupid,0 userid,groupname from groups where userID='+inttostr(id)+'union select 0,0,''我的朋友''' + 'order by groupname';
       ADOQuery2.Open;
    end;
    end;救命阿!
      

  8.   

    我就是想在 点击事件里调用 AfterScroll 事件,该怎么办阿,快救救我吧,急死了。
      

  9.   

    没有搞清什么意思呀,你上面的AfterScroll事件写的代码有什么用呀,下面为什么又写一个呢。你这样试一下。
    TForm3.ADOQuery2AfterScroll(DataSet: TDataSet);
    var T_id,id:Integer;
        str12:string;
    begin
       t_id:= adoquery2.FieldByName('groupID').value;
       if t_id<>0 then
    begin
       str12:=form1.FlatEdit1.Text;
       ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Text:='select * from users where userlogin='''+str12+'''';
       ADOQuery1.Open;
       id:=ADOQuery1.fieldbyname('userid').value;   ADOQuery2.Close;
       ADOQuery2.SQL.Clear;
       ADOQuery2.SQL.Text:='select groupid,0 userid,groupname from groups where userID='+inttostr(id)+'union select 0,0,''我的朋友''' + 'order by groupname';
       ADOQuery2.Open;
    end;procedure TForm3.dxDBTreeView1Click(Sender: TObject);
    begin
      ADOQuery2AfterScroll(ADOQuery2);
    end;