首页 > 代码库 > ToolButton和MonthCalendar实现DateTimePicker的功能
ToolButton和MonthCalendar实现DateTimePicker的功能
效果图如下:
其中以上功能的实现,核心主要是参考了万一老师的资料,连接:http://www.cnblogs.com/del/archive/2011/05/12/2044112.html
完整代码如下:
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ImgList, RzButton, Vcl.ExtCtrls, RzPanel, Vcl.StdCtrls;type TForm1 = class(TForm) ImageList1: TImageList; RzToolbar1: TRzToolbar; RzToolButton1: TRzToolButton; MonthCalendar1: TMonthCalendar; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure RzToolButton1Click(Sender: TObject); procedure MonthCalendar1Click(Sender: TObject); procedure MonthCalendar1GetMonthBoldInfo(Sender: TObject; Month, Year: Cardinal; var MonthBoldInfo: Cardinal); private { Private declarations } procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); public { Public declarations } end;var Form1: TForm1; yy,mm,dd: string; //存年月日 y1,m1,d1: Word; //从DecordDate函数解析年月日,然后传值给yy,mm,ddimplementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin DecodeDate(MonthCalendar1.Date,y1,m1,d1); yy := IntToStr(y1); mm := IntToStr(m1); dd := IntToStr(d1); MonthCalendar1.Visible := False; RzToolButton1.Caption := DateToStr(MonthCalendar1.Date); //TFrom和TMonthCalendar都是由TControl的派生来的,TMonthCalendar通过TForm间接继承OnMouseUp、OnMouseDown属性 TForm1(MonthCalendar1).OnMouseUp := MouseUp; TForm1(MonthCalendar1).OnMouseDown := MouseDown;end;procedure TForm1.RzToolButton1Click(Sender: TObject);begin MonthCalendar1.Visible := not MonthCalendar1.Visible; if MonthCalendar1.Visible then begin MonthCalendar1.BringToFront; Memo1.Align := alRight; Memo1.Width := 100; end else Memo1.Align := alClient;end;procedure TForm1.MonthCalendar1Click(Sender: TObject);begin RzToolButton1.Caption := DateToStr(MonthCalendar1.Date);end;procedure TForm1.MonthCalendar1GetMonthBoldInfo(Sender: TObject; Month, Year: Cardinal; var MonthBoldInfo: Cardinal);begin yy := Format(‘%u‘,[Year]); RzToolButton1.Caption := yy + ‘-‘ + mm + ‘-‘ + dd;end;procedure TForm1.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin DecodeDate(MonthCalendar1.Date,y1,m1,d1); dd := IntToStr(d1); if Y >= 48 then //测量所得,单击日历横线下面的区域日历隐藏 begin MonthCalendar1.Visible := False; Memo1.Align := alClient; end;end;procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);begin DecodeDate(MonthCalendar1.Date,y1,m1,d1); mm := IntToStr(m1); //dd := IntToStr(d1); RzToolButton1.Caption := DateToStr(MonthCalendar1.Date);end;end.
ToolButton和MonthCalendar实现DateTimePicker的功能
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。