怎么调用一个组件的属性。(100分)

  • 主题发起人 主题发起人 troyliu
  • 开始时间 开始时间
T

troyliu

Unregistered / Unconfirmed
GUEST, unregistred user!
例如我要在程序中调用ADOConnection的ConnectionString属性，希望的到设计时的对话框
来改变ConnectionString,怎么调用。
 

ADOConnection.Connected := false;
ADOConnection.ConnectionString := Value;
ADOConnection.Connected := true;
 
看看delphi的demo，ado的里面就有了
 
var CntStr:WideString;
begin
//下行代码可弹出连接对话框.
CntStr:=promptDataSource(0,'AdoCnt'); //字符串'AdoCnt'是随便给出的,用于下行判断是否被改变
if CntStr<>'AdoCnt' then
begin
StatBar.SimpleText :=' 状态：已连接';
Memo2.Lines.Add('已成功连接到数据库');
AdoCnt.Connected :=false; //这里的AdoCnt是AdoConnection控件.
AdoCnt.ConnectionString :=CntStr;
end;
end;
 
是在运行期显示设计期的东西。
 
反一下不行吗???

Label1.Caption:=ADOConnection1.ConnectionString;
 
当然可以了
 
不好意思，可能是我说的不是很清楚。
我是说，怎么显示配置ConnectionString的对话框。象
打开文件的对话框。
 
猎手1号的promptDataSource就是，在ado单元
 
首先，在 uses 语句中包含进 AdoConEd 单元。然后在应用程序需要触发 ADO 连接串编辑器的地方写入如下简单代码。问题迎刃而解。



ADOConnection1.Close;

// calling EditConnectionString displays the dialog, and

// sets the ConnectString property to the resulting value.

if EditConnectionString(ADOConnection1) then begin

//display the resulting ADO Connect String, just for fun.

label11.caption := ADOConnection1.ConnectionString;

end;

 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
P
在DBRichEdit中怎样调用Lines属性(100分)
回复
8
查看
208
plf22
P
D
怎样才能知道一个组件中有什么方法，属性？(50分)
回复
4
查看
120
deneb
D
W
怎样用一个循环语句来给一批同类的控件的同一个属性赋值？(100分)
回复
11
查看
187
wugdoneone
W
Z
DLL中的变量和控件的属性怎么调用？(50分)
回复
6
查看
154
doll_paul
D
后退
顶部