手工挂历制作方法(创建控件数组制作日历)
Posted
篇首语：再长的路，一步步也能走完，再短的路，不迈开双脚也无法到达。本文由小常识网(cha138.com)小编为大家整理，主要介绍了手工挂历制作方法(创建控件数组制作日历)相关的知识，希望对你有一定的参考价值。
手工挂历制作方法(创建控件数组制作日历)
因处理数据，需要给用户提供日期选择，日历制作方法如下。
一，选择Delphi或其他编程，布置窗体界面如下
31个日期按钮，不需要手工创建，通过代码产生控件数组，生成31个选项按钮。
在窗体show事件里，写代码如下
声明变量
var
sbtns:array[1..31] of TSpeedButton;／／用于创建按钮控件数组
n,ncount,x,y,a,b,v,leftv,topv:word;
show事件代码
procedure TForm1.FormShow(Sender: TObject);
begin
ncount:=31;
leftv:=30;
topv:=30;
x:=40;
y:=40;
a:=0;
b:=0;
v:=3;
for n:=1 to ncount do
begin
sbtns[n]:=TSpeedButton.create(self);
sbtns[n].name:='sBtn' + inttostr(n);
sbtns[n].Parent:=self;
sbtns[n].Left:=leftv + a* x;
sbtns[n].top:=topv + b * y;
sbtns[n].Width:=x + v;
sbtns[n].Height:=y + v;
sbtns[n].Caption:=inttostr(n);
sBtns[n].OnClick:=BtnDay_Click;
sBtns[n].Font.Size:=11;
if a<5 then
a:=a+1
else
begin
a:=0;
b:=b+1;
end;
end;
end;
二，设置背景图片
可用shape图形作按钮的背影图片，底色设白色，边框颜色根据喜好设置。
程序运行，创建31个按钮在这个shape图形上，效果如下
三，编写click公共事件。
用户选了哪一天，需要提示结果，所以需要编写事件代码
procedure TForm1.BtnDay_Click(sender:tobject);
var
obj:TSpeedbutton;
begin
obj:=TSpeedbutton(sender);
application.MessageBox(pchar('你点击了' + #13 + obj.Caption + ' 号'),pchar('提示'),MB_OK);
end;
程序运行效果如下
窗口皮肤颜色，可以根据喜好设置，比如下面蓝色
四，程序关键总结
数组按钮代码
类数组：=按钮类.Create（self）
这是产生按钮数组的关键。
然后代码设置他的坐标位置和大小，代码给控件设置日期值（哪一天，几号）。
Delphi语言很优美！
相关参考
你还记得上一次看日历是什么时候吗?是为了增加一条提醒，预约一家餐厅?对大部分人来说，每一个日子似乎如流水般平凡而毫无闪光点。每天我们都行色匆匆步履不停，被时间追赶，时间除了是一串紧迫的数字之外没有任何意...
1月9日，在市民政局、榆中县民政局指导下，兰州生命之翼社会工作服务中心精心准备，积极开展全市未成年关爱保护服务省级福彩项目“用心呵护与爱同行”未成年人非遗文化面人兴趣制作团体活动。大家一起分享传统文化的...
手工日历制作方法图片(古刹灵隐寺“山君祈福”年历开始印制 历经十八道工序基本全手工)
...放。据悉，每一幅祈福年历都历经十八道工序，几乎全靠手工完成。题写祈福年历这个传统，杭州灵隐寺已延续多年。从2012年的“龙年祈福”到2013年的“巳年大吉”再到2021年的“金牛聚福”，杭州灵隐寺方丈光泉法师每年都会...
木质台历(创意家居系列，带你学习如何制作漂亮的木制日历（图解）)
传承手工艺术，放飞指尖梦想，每一节教学我们都会认真对待！只为传递手工技艺，创意源于生活,细节决定品质，今天为大家分享如何制作简易日历的方法，步骤详细，手工难度2颗星，看似繁琐，其实很简单，喜欢创意家居系...
手工挂历怎么做(晚安十点（2023222）丨广西一女子发现30多年前的手工钱包，里面竟翻出……)
近日防城港的谢女士偶然发现30多年前的手工钱包竟然翻出一笔当年的“巨款”谢女士当年手工制作的钱包。本文图片均为受访者提供1分、2分、5分、1角、2角……里面装着不少旧纸币甚至有1953年版的1953年版的五分纸币。她拍摄...
作为用来记录天数的物品，福牌日历（Brand_wei）在平时的生活当中，算得上是很常见的。尤其是在新旧年交替的时候，很多企业、单位会用日历作为礼品，送给同事亲友。由于客户的要求不同，所以日历的纸张样式，变得多元化...
日历和挂历的区别(河之洲105丨一本日历为何变成一本书？（要看文末哦）)
□策划体娱文创部执行大河报·大河客户端记者张丛博实习生刘袁抒先出一道谜语，谜面是：“摸摸无节，看看有节。两头冰冷，中间火热。”猜猜谜底是什么？答案是：日历。这种记有年、月、日、星期、节气、纪念日等可供...
日历台历挂历(电影明星1984年挂历 当年最火影星 张瑜 陈冲 李秀明 潘虹 龚雪)
全部图片选自天津人民美术出版社1983年10月出版的1984年挂历。封面影星张瑜陈冲，1961年4月26日生于上海，美籍华裔女演员，奥斯卡金像奖评委，好莱坞编剧家协会会员，毕业于上海外国语学院。1976年，因出演电影《青春》崭...
日前，第二十届全国中小学电脑制作竞赛河北赛区成绩揭晓。沧州市第一中学的参赛作品获得佳绩：两人获一等奖，两人获二等奖，三人获三等奖。据介绍，获奖的同学作品中，孙镇坤的二维电脑动画《尊严》、回恬静的电脑艺...
日前，第二十届全国中小学电脑制作竞赛河北赛区成绩揭晓。沧州市第一中学的参赛作品获得佳绩：两人获一等奖，两人获二等奖，三人获三等奖。据介绍，获奖的同学作品中，孙镇坤的二维电脑动画《尊严》、回恬静的电脑艺...