盒子论坛 v2.1

这个帖子访问量次数这么多竟然没一个人回复！
我也碰到这个问题,说下自己了解的！
----------
一个方法是用 TMS intraweb 带的日期控件。但这个日期控件只有欧洲，和美国的日期格式，没有我们需要的YYYY-MM-DD，网上有篇文章可以修改下让其显示YYYY-MM-DD，我用的是最新的5.4这个版本，修改后，看起来样子不错，但是一旦选择日期就BUG了，具体啥BUG，反正修改后就不好使，很不好使！希望大牛们改出来个中文控件！
----------
另一个方法我不懂。贴出源码，求DEMO！
QQ:304092171
平台：XE5 UP1
      IntraWeb 14.0.23

一下为源内容未修改
----------
extjs在intraweb下集成日期选择

　　　在intraweb中的TMS控件,有个日期选择控件,这控件在intraweb 支持ajax后,存在一个问题是异步事件下赋值客户端不改变,另这个控件的客户端的脚本也够多的(至少100行),一个页面多个,就重复生成多个脚本,这无形中增加了网络传输量.总之我要换一个,今天就给个与extjs结合的一个实现方法. 大家看代码:
1.Extjs代码:
function FSelDate(vobj,VclID)
{
var varurl="http://"+window.location.host+"/EXEC/"+GTrackID+"/"+GAppID+"/?page=SELDATE";
seldatewin=new Ext.Window(
         {id:'SELDATE',
          title:"日期选择",
          width:260,height:180,
          maximizable:false,
          html : '<iframe name="I1"  id="I1" width="100%" height="100%" src='+varurl+' marginwidth="1" marginheight="1" border="0" frameborder="0" >浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe>',
          iconCls: 'password',
          shim:false,
          animCollapse:false,
          constrainHeader:true,modal :true,
          listeners:{"beforedestroy":function(obj){document.getElementById('EDITFLAG').value=I1.SubmitForm.IW_FormName.value;vobj.SetDateText(VclID);EDITFLAG_onclick0();}}
          }
         );
      seldatewin.show();
}

2.delphi端代码
   procedure TSBTZForm_CLDJ.T1CCRQAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  self.AddToInitProc('window.parent.parent.FSelDate(window,1);');
end;
procedure TSBTZForm_CLDJ.T1CCRQAsyncDoubleClick(Sender: TObject;
  EventParams: TStringList);
begin
  T1CCRQ.Text:=usersession.VtempString;
end;
3.IE端脚本
<script language ="javascript">
  function SetDateText(VclID)
  {

   if(VclID==1)
    {
     T1CGRQ_ondblclick();
    }
  }
</script>
好了代码就这些
看效果吧:

此帖子包含附件:

大小:22.3K

----------------------------------------------
学Delphi

信息

登陆以后才能回复