AfterScroll 事件必须是光标滚动才有效。
onclick 事件必须是点击才有效。我想让onclick 事件触发的时候,AfterScroll 也起作用,该怎么办阿?
onclick 事件必须是点击才有效。我想让onclick 事件触发的时候,AfterScroll 也起作用,该怎么办阿?
解决方案 »
- 高分请教一个比较复杂的问题,在线等
- 程序中空语句也出错,why
- 字符串小问题,帮忙解答一下,谢谢
- ***用ADO连接Oracle,怎么把用户名和口令写进程序里,可以让程序直接连接数据库?***
- 奇怪,我这句怎么通不过呢:if assigned(FChild)<>nil then
- 控制别的程序的问题???
- 初学者上路,请求一个增删改的小程序。十分感谢!
- ▁▂▃▄▅▆▇█如何把一个数组存入Access的OLE 对象字段█▇▆▅▄▃▂▁
- tab键的ASCII码是多少
- 如何写ADO连接DBF的ConnectionString的参数??
- 散分第一个10分,第二个20分,第三个70分
- treeview怎么用啊?
可以啊在OnClick中写下:控件名称.OnAfterScroll(Sender);老兄,你应该把控件的名称说出来啊
form1.AfterScroll
.
.
.
.end
你是想点击的时候滚动光标?:-)
dataset.AfterScroll(Sender);
haoco(程序员) 的也可以
begin
DataSet1BeforeScroll(DataSet1);//DataSet1可以中你的Table和Query名字
end;
老兄,好象有AfterScroll和BeforeScroll,没有看到OnScroll呀。
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;救命阿!
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;