2,497
社区成员
发帖
与我相关
我的任务
分享
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TMonthCalendar = class(ComCtrls.TMonthCalendar)
protected
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
end;
TForm1 = class(TForm)
Edit1: TEdit;
MonthCalendar1: TMonthCalendar;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TMonthCalendar.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited;
Form1.Caption := Format('X:%d,Y:%d',[X,Y]);
end;
procedure TMonthCalendar.MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
var
r: TRect;
begin
inherited;
with Form1.MonthCalendar1 do
r := Rect(15,48,Left+Width,Top+Height);
if PtInRect(r,Point(X,Y)) then
Form1.Edit1.Text := FormatDateTime('yyyy-mm-dd',Form1.MonthCalendar1.Date);
end;
end.