procedure TSandLisaCalender.X1Click(Sender: TObject); begin Close; end;
procedure TSandLisaCalender.D1Click(Sender: TObject); begin
Show; end;
procedure TSandLisaCalender.WAppExt1TrayDbclick(Sender: TObject); begin
Show;
end;
procedure TSandLisaCalender.H1Click(Sender: TObject); begin Hide; end;
procedure TSandLisaCalender.MonthPanel1CaptionDBClick(Sender: TObject); begin Hide;
end;
{ procedure TSandLisaCalender.WMNCHITTEST(var M: TWMNCHITTEST); begin
end; } procedure TSandLisaCalender.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var PPoint:TPoint; begin {如果鼠标左键按下的话} if Msg.message=WM_LButtonDown then begin {判断光标是否在用户工作区内} if DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient then begin {发出鼠标在用户标题栏内被按下的消息} PPoint := ExCalcCursorPos(Self); if (PPoint.Y < MonthPanel1.MonthCaptionHeight) and (PPoint.X >17) and (PPoint.X<340) then begin SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos); Handled := true; end; {消息处理完毕,窗体不再接受MouseDown及Click事件,如果为false,程序的运行稍微有些不正常。} end; end;
end;
procedure TSandLisaCalender.T1Click(Sender: TObject); begin (Sender as TMenuItem).Checked := not (Sender as TMenuItem).Checked; if (Sender as TMenuItem).Checked then Self.FormStyle := fsStayOnTop else Self.FormStyle := fsNormal; end;