在ActionManager中新增New Standard Action中的DataSet中的几个Action。
我想在运行时改变DataSetAction的DataSource,编写过程如下:
procedure TfrmMain.ButtonsDataSource(aDS:TDataSource);
begin
DataSetInsert2.DataSource:=aDS;
DataSetEdit2.DataSource:=aDS;
DataSetDelete2.DataSource:=aDS;
DataSetCancel2.DataSource:=aDS;
DataSetPost2.DataSource:=aDS;
end;
调用:
1. ButtonsDataSource(dsCompany);
2. ButtonsDataSource(dsProduct);
第一次调用有效,第二次......后调用无效!!!
请问是啥原因哦?????
谢谢!!!!!!
我想在运行时改变DataSetAction的DataSource,编写过程如下:
procedure TfrmMain.ButtonsDataSource(aDS:TDataSource);
begin
DataSetInsert2.DataSource:=aDS;
DataSetEdit2.DataSource:=aDS;
DataSetDelete2.DataSource:=aDS;
DataSetCancel2.DataSource:=aDS;
DataSetPost2.DataSource:=aDS;
end;
调用:
1. ButtonsDataSource(dsCompany);
2. ButtonsDataSource(dsProduct);
第一次调用有效,第二次......后调用无效!!!
请问是啥原因哦?????
谢谢!!!!!!
解决方案 »
- delphi 如何用当前日期作文件名保存起来?
- 老僵那个招聘帖又被和谐了?
- 怎样配置delphi7:在delphi编辑器中区分大小写显示(例如:定义一个变量hHook,那幺写代码时键入hhook回车后自动变为hHook),怎样配置?
- 最后的散分五号,先到先得。
- 在任务栏上单击图标,当最小化时单击后回恢复,当窗口显示时单击会最小化(不是在系统托盘上单击),请问这个东西,怎么处理的?我怎样改
- 如何监听本机某一个进程或者端口发送与接受的信息?
- 急,急,救命!!!APPLYUPDATES
- 磁盘引导区坏了,怎么办?急急急!
- 新增資料時出現 record/key delete 錯誤
- 【菜鸟问题】怎么自己重画TLabel控件,实现Label带下划线?不改字体
- 怎么求时间差(秒)?
- 郁闷啊,高手来帮忙!!!!!!!!
我的问题也就是说~~
DataSetAction不能动态的更换数据源吗?????
如果能, 改怎样写呢?
我知道你
DataSet.Active的状态吗?
....----------------
沉沦中..........
你是如何调用ButtonsDataSource(aDS:TDataSource)的
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
DBGrid1.DataSource := DataSource2;
for i := 0 to ActionManager1.ActionCount -1 do
if ActionManager1.Actions[i].Category = 'Dataset' then
ActionManager1.Actions[i].HandlesTarget(DataSource2);
end;
ActionManager还是很神奇的啊,大家研究研究
前提是设计时DataSetAction的DataSet属性为空