开发工具:
文件大小: 27kb
下载次数: 0
上传时间: 2013-08-15
详细说明： 实用万年历控件 部分代码： procedure TFRM_Date.LoadLAB; var i: integer; begin for i := 1 to 37 do begin CnDate[i] := TLabel.Create(self); CnDate[i].parent := Panel1; ChnDate[i] := TLabel.Create(self); ChnDate[i].parent := Panel1; CnDate[i].OnClick := CnDayClick; CnDate[i].OnMouseDown := CnDayMouseDown; ChnDate[i].OnClick := ChnDayClick; ChnDate[i].OnMouseDown := ChnDateMouseDown; CnDate[i].AutoSize := false; ChnDate[i].AutoSize := false; CnDate[i].Width := day1.Width; ChnDate[i].Width := Cnday.Width; CnDate[i].Height := day1.Height; ChnDate[i].Height := Cnday.Height; CnDate[i].Alignment := day1.Alignment; ChnDate[i].Alignment := Cnday.Alignment; CnDate[i].Layout := day1.Layout; ChnDate[i].Layout := Cnday.Layout; if i = 1 then begin CnDate[i].Left := day1.Left; CnDate[i].Top := day1.Top; ChnDate[i].Left := Cnday.Left; ChnDate[i].Top := Cnday.Top; end else begin if ((i - 1) mod 7) = 0 then begin CnDate[i].Top := CnDate[i - 1].Top + 64; CnDate[i].Left := day1.Left; ChnDate[i].Top := ChnDate[i - 1].Top + 64; ChnDate[i].Left := Cnday.Left; end else begin CnDate[i].Top := CnDate[i - 1].Top; CnDate[i].Left := CnDate[i - 1].Left + 84; ChnDate[i].Top := ChnDate[i - 1].Top; ChnDate[i].Left := ChnDate[i - 1].Left + 84; end; end; CnDate[i].Font := day1.Font; ChnDate[i].Font := Cnday.Font; CnDate[i].Font.Color := clBlack; CnDate[i].AutoSize := false; ChnDate[i].AutoSize := false; CnDate[i].Transparent := true; ChnDate[i].Transparent := true; end; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
