判断MonthCalander中鼠标点中了日期还是翻页按钮!
uses CommCtrl;
var OldWindowProc: TWndMethod;
procedure TForm1.MyWindowProc(var Msg: TMessage);
begin
if Msg.Msg = CN_NOTIFY then
begin
case TWMNotify(msg).NMHdr.code of
MCN_GETDAYSTATE: Memo1.Lines.Add('MCN_GETDAYSTATE');//點了翻页
MCN_SELECT, MCN_SELCHANGE: Memo1.Lines.Add('MCN_SELECT, MCN_SELCHANGE');//選中日期
end;
end;
OldWindowProc(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OldWindowProc :=...[ 查看全文 ]
[ 查看全文 ]
