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;
有了ah_def.inc后,编绎时又出了新的错误! 出现以下错误提示! 1.[Error] uMoon.pas(426): Left side cannot be assigned to 2.[Error] uMoon.pas(430): Left side cannot be assigned to 3.[Error] uMoon.pas(433): Left side cannot be assigned to 4.[Error] uMoon.pas(2788): Left side cannot be assigned to 5.[Error] uMoon.pas(2789): Left side cannot be assigned to 6.[Error] uMoon.pas(2790): Left side cannot be assigned to 7.[Error] uMoon.pas(2791): Left side cannot be assigned to 分别对为: 1. negative_dates_broken:=h>12; // 好像delphi不扶持这样的语法吧! 2. calendar_reform_supported:=((d1-d2)=1); //是不是calenar_reform_supported 不是boolean类型呀! 3. julian_calendar_before_1582:=((d1-d2)=2); 4. julian_offset:=2451544.5-EncodeDate(2000,1,1); 5. datetime_2000_01_01:=EncodedateCorrect(2000,1,1); 6. datetime_1999_01_01:=EncodedateCorrect(1999,1,1); 7. datetime_first_lunation:=EncodeDate(1923,1,17);
