var
myedit:Tedit;
begin
myedit:=Tedit.create(self);
myedit.parent:=self;
myEdit.Name := 'EditName' ;
end;调用:
if FindComponent('EditName') is TEdit then
begin
TEdit(FindComponent('EditName')).text; //即是你所要的值
end ;
myedit:Tedit;
begin
myedit:=Tedit.create(self);
myedit.parent:=self;
myEdit.Name := 'EditName' ;
end;调用:
if FindComponent('EditName') is TEdit then
begin
TEdit(FindComponent('EditName')).text; //即是你所要的值
end ;
解决方案 »
- 想在一个reportbuilder中分成两页打印
- 让子窗体一直处于最上面
- delphi数值计算的重大隐患bug! 怎样解决?
- 请问StringGrid不支持对鼠标中键的滚动的响应吧?
- 三层DCOM结构,SQL Server2000数据库,为何新增记录可以保存,而修改记录则保存不了?
- 我也太菜了,请问:dbexpress可以连接到ms sqlserver吗?
- 外边下雨,散分
- 我用下面语句实现表的复制为什么是错误的呢?
- 不好意思,再帮我看一看;
- 每次进行数据库链接时,都会弹出数据库(username: password:)对话框,请问如何,让他不弹出。我没设用户名和密码。
- 可以用Delphi开发基于Web的应用程序吗
- 如何取得sql语句中每个分组结果的最后一条记录!内详,高手请赐教!
var
myedit:Tedit;
begin
myedit:=Tedit.creat(self);
myedit.name = 'aa';///////////////
myedit.parent:=self;
end;
在BUTTON的ONCLICK中
strtmp := aa.text;