二:月份值本来就是从0开始的
edit1.text:=inttostr(m+1);
edit1.text:=inttostr(m+1);
解决方案 »
- idTcpServer服务器,几个小时就死,求解!附代码
- 人事管理系统
- 用clientdataset如何更新数据
- 怎样对一个字符串定长?不足补空格。S:='12345'=> s:='12345 '.
- 如果完整的实现 DbGRidToExcel?
- 问题又没了!这个问题可以说是大家来评理!痛苦中。。。。
- 我同时启动了两个窗体,可是隐藏上面的窗体后,下面的窗体不能获得焦点。请大家帮忙!
- 怎样使用tree view
- Tcontrol没有Font属性????
- 急急急!Tdatabase如何与Tquery配合使用对数据库查询?
- 各位有没有用过Delphi6自带的安装制作系统,好象对中文的支持非常臭,我用的时候如果有中文的话居然成了一个四方框
- 请问专家分怎么得啊
MonthCalendar1.BoldDays必需在MonthCalendar1GetMonthInfo中使用,原因很简单:
procedure BoldDays(Days: array of LongWord; var MonthBoldInfo: LongWord);
这个方法的每二个参数var MonthBoldInfo是要回传给TMonthCalendar继续处理的
你可以试试下面的代码也许就会明白:
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
MonthBoldInfo:=9; //等同于 MonthCalendar1.BoldDays([1,4],MonthBoldInfo);
end;
第二个题:
OnGetMonthInfo这个事件是在月份变化前就被激发了的,所以用你的做法得到的永远是上一次选的月份
把你的代码放到OnClick事件里就Ok了
我要得 是每个月都能正确的粗体显示,WHAT SHOULD I DO?
如果可以,我的信箱是[email protected]
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
MonthCalendar1.BoldDays([1,4],monthboldinfo);
end;procedure TForm1.MonthCalendar1Click(Sender: TObject);
var
y,m,d:WORD;
begin
decodedate(MonthCalendar1.date,y,m,d);
edit1.text:=inttostr(m);
end;