| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 665 人关注过本帖
标题:请教DEIPH开发中的用户自定义命令的执行问题
只看楼主 加入收藏
zylcpe
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-12-2
收藏
 问题点数:0 回复次数:1 
请教DEIPH开发中的用户自定义命令的执行问题
请教高手一个问题:
 自定义的命令行,如何运行?
 如:给多个label控件(label1,label2,。。。。。。)赋值,
 构造出:Str:='label'+inttostr(i)+'.caption:='''+'字串1'''';   // label1.caption:='11111111'  ,label2.caption:='22222222' ,。。。。。;
 问题是下面如何执行?有木有类似其他开发工具的宏?
 多谢!
搜索更多相关主题的帖子: 工具 开发 用户 如何 
2012-12-02 16:08
chunyangsuha
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2013-3-4
收藏
得分:0 
从我的代码里抄了一段你看看
procedure TF_sbdllr.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to - 1 do
  begin
    if ([i] is TDBEdit) then
    begin
      ([i] as TDBEdit).enabled := false;
    end;
    if ([i] is TRzDBComboBox) then
    begin
      ([i] as TRzDBComboBox).enabled := false;
      ([i] as TRzDBComboBox).Items.Add('甲班');
      ([i] as TRzDBComboBox).Items.Add('已班');
      ([i] as TRzDBComboBox).Items.Add('丙班');
    end;
    if [i] is TRzTabSheet then
    begin
      ([i] as TRzTabSheet).tabVisible := false;
    end;
  end;
  if (gsUserName = '张三')  then
  begin
    for i := 0 to - 1 do
    begin
      if [i] is TRzTabSheet then
      begin
        if (([i] as TRzTabSheet).Caption = '包封') then
        begin
          ([i] as TRzTabSheet).tabVisible := True;
        end;
      end;
    end;
  end;
 end;
2013-03-04 20:51
快速回复:请教DEIPH开发中的用户自定义命令的执行问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026305 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved