N
nxpostwjq
Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个分页类,在类中要定义四个事件:首页 前页 后页 尾页 作为分页类的成员
同时在类的使用的分页表单上对应四个按钮,但在类的设计中,按钮类型不能确定,高手可否提供一点思路..我的代码如下
unit Classgroup;
interface
uses SysUtils, Dialogs,StdCtrls, Classes,Controls;
type
Tpagination=class
public
sqltext:string;//分页查询语名
pageno:integer;//页号
keyfield:string;//分页的关键字段
pagerecount:integer;每页记录数
procedure top;首页事件
procedure next;下页事件
procedure prew;前页事件
procedure bottom;尾页事件
end;
var
a:array[0..3] of tbutton;//定义四个按钮
implementation
procedure Tpagination.top;//实现首页事件
begin
pageno:=1;//如果是首页时
a[0].Enabled:=false;//首页按钮无效
a[0].Enabled:=false;//前页按钮无效
a[2].Enabled:=true;//后页按钮无效
.........
end;
我如何在调用的表单中用四个按钮对应 A[0..3] 四个按钮?
同时在类的使用的分页表单上对应四个按钮,但在类的设计中,按钮类型不能确定,高手可否提供一点思路..我的代码如下
unit Classgroup;
interface
uses SysUtils, Dialogs,StdCtrls, Classes,Controls;
type
Tpagination=class
public
sqltext:string;//分页查询语名
pageno:integer;//页号
keyfield:string;//分页的关键字段
pagerecount:integer;每页记录数
procedure top;首页事件
procedure next;下页事件
procedure prew;前页事件
procedure bottom;尾页事件
end;
var
a:array[0..3] of tbutton;//定义四个按钮
implementation
procedure Tpagination.top;//实现首页事件
begin
pageno:=1;//如果是首页时
a[0].Enabled:=false;//首页按钮无效
a[0].Enabled:=false;//前页按钮无效
a[2].Enabled:=true;//后页按钮无效
.........
end;
我如何在调用的表单中用四个按钮对应 A[0..3] 四个按钮?