摘要:
declare @T1 Intselect @T1=Pm_PListID from PmLists where Pm_ListID=684while exists(select 1 from PmLists where Pm_listid=@T1 and Pm_PListID>0) begin se... 阅读全文
摘要:
procedure TFormBase.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var i: SmallInt;begin if Msg.message = WM_MOUSEWHEEL then begin M... 阅读全文