郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
如何获得可用的DataSource。就象IDE环境中，给DBEdit付值，只要从DataSource下拉框
选择就行。
选择就行。
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
需要可用DataSource的列表。
美
美国提子
Unregistered / Unconfirmed
GUEST, unregistred user!
一样呀,你use一下有DataSource的窗体
F
forss
Unregistered / Unconfirmed
GUEST, unregistred user!
就这么简单?????
for i:=0 to ComponentCount-1 do
begin
if Components is TDataSource then xxxx
end;
for i:=0 to ComponentCount-1 do
begin
if Components is TDataSource then xxxx
end;
F
free_knight
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
for i:=1 to ComponentCount do
begin
Memo1.Lines.Add(Components[i-1].ClassName);
if Components[i-1].ClassName='TDataSource' then
Memo2.Lines.Add(Components[i-1].Name);
end;
end;
var i:integer;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
for i:=1 to ComponentCount do
begin
Memo1.Lines.Add(Components[i-1].ClassName);
if Components[i-1].ClassName='TDataSource' then
Memo2.Lines.Add(Components[i-1].Name);
end;
end;
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
你们想的太简单了，以上的我都想到了。
引用其它窗体上的DataSource如何获得？这是最关键的！！！
例如Form1用了Form2，Form2上有DataSource1
那么Form1上得到的DataSource因该有Form2.DataSource1！！！
引用其它窗体上的DataSource如何获得？这是最关键的！！！
例如Form1用了Form2，Form2上有DataSource1
那么Form1上得到的DataSource因该有Form2.DataSource1！！！
F
free_knight
Unregistered / Unconfirmed
GUEST, unregistred user!
道理不是一样的么，再同理判断一下form2的不就行了
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
我如何知道我这个窗体用了From2？
天
天什
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
for i:=1 to form2.ComponentCount-1 do
begin
Memo1.Lines.Add(form2.Components[i-1].ClassName);
if form2.Components[i-1].ClassName='TDataSource' then
Memo2.Lines.Add(form2.Components[i-1].Name);
end;
end;
var i:integer;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
for i:=1 to form2.ComponentCount-1 do
begin
Memo1.Lines.Add(form2.Components[i-1].ClassName);
if form2.Components[i-1].ClassName='TDataSource' then
Memo2.Lines.Add(form2.Components[i-1].Name);
end;
end;
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
我如何知道我这个窗体用了From2？
这是最关键的！！！
这是最关键的！！！
风
风中流云
Unregistered / Unconfirmed
GUEST, unregistred user!
把所有的数据源都放到数据模块上再用楼上所说的方法不就行了吗？
F
forss
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:=1 to application.ComponentCount-1 do
showmessage(inttostr((application.Components as Tform).componentcount));
这个可以取得你的程序中所有的窗体,第0个是空的,
至于有没有USE到....就不知道了丫....
showmessage(inttostr((application.Components as Tform).componentcount));
这个可以取得你的程序中所有的窗体,第0个是空的,
至于有没有USE到....就不知道了丫....
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
我要做的是控件，不能有过多前提条件。
Delphi能做到，我想会有方法的！！！
Delphi能做到，我想会有方法的！！！
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
你看一下TDataSource的源代码，估计就知道她怎么做的了。
O
onedot
Unregistered / Unconfirmed
GUEST, unregistred user!
你的控件里必须定义有DATASOURCE属性关键的是要有Notification方法
哎，我一时说不清楚，你看看我一个控件的源代码
http://www.playicq.com/downfile.asp?ID=211&location=HSBarCodeImage.zip
很简单的
哎，我一时说不清楚，你看看我一个控件的源代码
http://www.playicq.com/downfile.asp?ID=211&location=HSBarCodeImage.zip
很简单的
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
你那些不能用，因为你用的是IDE的属性编辑器，而我要自己写一个属性编辑器。
DataSource列表IDE已经替你准备好了，而我要自己写！
DataSource列表IDE已经替你准备好了，而我要自己写！
Z
zjjzl
Unregistered / Unconfirmed
GUEST, unregistred user!
请参考如下语句：
Designer.GetComponentNames(GetTypeData(PtypeInfo(TDataSource.ClassInfo)), LoadDataSource);
其中Designer为属性编辑器的成员,LoadDataSource为获取一个名字后的处理过程。
GetComponentNames看帮助。
Designer.GetComponentNames(GetTypeData(PtypeInfo(TDataSource.ClassInfo)), LoadDataSource);
其中Designer为属性编辑器的成员,LoadDataSource为获取一个名字后的处理过程。
GetComponentNames看帮助。
O
onedot
Unregistered / Unconfirmed
GUEST, unregistred user!
哦，那我就不说什么了。楼上的已经说了
郭
郭玉梁
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。