一颗胡萝卜🌀的个人资料 - RAT

一颗胡萝卜🌀 哥哥爱槑槑

关注数: 66 粉丝数: 233 发帖数: 11,773 关注贴吧数: 58

怎么个事，验证码修不好了吗有的界面是好的，有的不行

18号wechat 转微信，20号出livekit 已经操作转会wechat，目前数据还未转移

枣庄市召开济枣高铁征地拆迁推进会

来电显示真的免费了易通畅享卡，先收后免的形式，从1月开始的

山东电信吧吧主竞选：NO.0003号候选人

邦钱包现在上限多少没找到说明

济南城投又来了

建议房地产企业早转型早主动国家统计局原副局长贺铿: 现有住房14亿人可能住不完，建议房地产企业早转型早主动

三部门推动落实购买首套房贷款“认房不用认贷”政策措施记者25日从住房和城乡建设部获悉，近日住房城乡建设部、中国人民银行、金融监管总局联合印发了《关于优化个人住房贷款中住房套数认定标准的通知》，推动落实购买首套房贷款“认房不用认贷”政策措施。通知明确，居民家庭（包括借款人、配偶及未成年子女）申请贷款购买商品住房时，家庭成员在当地名下无成套住房的，不论是否已利用贷款购买过住房，银行业金融机构均按首套住房执行住房信贷政策。此项政策作为政策工具，纳入“一城一策”工具箱，供城市自主选用。据住房城乡建设部有关负责同志介绍，此项政策将使更多购房人能够享受首套房贷款的首付比例和利率优惠，有助于降低居民购房成本，更好满足刚性和改善性住房需求。

大的真的来了

央行谈提前还房贷支持和鼓励银行与借款人自主协商变更合同约定，或新发放贷款置换存量贷款

乘风破浪的吧鸟

下载不限速上传限速？？

烽火APP更新了，可以连了

这个看着是03吧，按理说开车门应该自动挂P档才对

这个看着是03吧按理说开门应该自动挂P档才对

动画变成左右的了

这是什么水平？不停运，非要排队去退票

这是要更新的节奏吗？

不用瞎猜了，枣庄南在这

49的免费加办副卡居然还有人收费 49的免费加办副卡居然还有人收费

19D的抖音免流是不是有问题，跑通用流量跑的厉害，头条就很稳 19D的抖音免流是不是有问题，跑通用流量跑的厉害，头条就很稳定

T179正在检票

正式版还是会出现信息不显示的情况

19D生效了。为什么没有0包10M？

delphi如何根据句柄判断窗口的显示状态有时我们取得一个窗口的句柄，需要知道这个窗口是隐藏还是显示状态？或者我们取得窗体的句柄，想隐藏这个窗体或显示这个窗体，该怎么办呢？这时我们需要用到API函数GetWindowLong或者GetWindowInfo, GetWindowLong的函数原型LONG GetWindowLong( HWND hWnd,int nIndex ) 参数： hWnd：指定窗口的句柄 nIndex：需要获得的信息的类型值功能 nIndex取值如下: GWL_EXSTYLE 得到扩展的窗口风格 GWL_STYLE 得到窗口风格 GWL_WNDPROC 得到窗口回调函数的地址，或者句柄。得到后必须使用CallWindowProc函数来调用 GWL_HINSTANCE 得到应用程序运行实例的句柄 GWL_HWNDPARENT 得到父窗口的句柄 GWL_ID 得到窗口的标识符 GWL_USERDATA 得到和窗口相关联的32位的值（每一个窗口都有一个有意留给创建窗口的应用程序是用的32位的值）当hWnd标识一个对话框时可以使用下面的值 Value Action DWL_DLGPROC 得到对话框回调函数的地址，或者句柄。得到后必须使用CallWindowProc函数来调用 DWL_MSGRESULT 得到对话框回调函数中消息处理过程的返回值 DWL_USER 得到额外的应用程序私有信息，如一些句柄和指针等返回值：成功时，返回一个请求的32位的值失败时，返回0，可以使用GetLastError来取得错误信息示例1： long nStyle = ::GetWindowLong(hWnd, GWL_STYLE); // hWnd是一个编辑框的句柄 if(nStyle & ES_PASSWORD) { AfxMessageBox(“这是一个密码域”); } 示例2： LONG GetWindowLong( HWND hWnd, // handle of window int nIndex // offset of value to retrieve ); 第二个参数是0的话，就是指定GW_HWNDFIRST！！！ GW_HWNDFIRST = 0; {同级别 Z 序最上} GW_HWNDLAST = 1; {同级别 Z 序最下} GW_HWNDNEXT = 2; {同级别 Z 序之下} GW_HWNDPREV = 3; {同级别 Z 序之上} GW_OWNER = 4; {属主窗口} GW_CHILD = 5; {子窗口中的最上} GetWindowInfo函数原型 BOOL WINAPI GetWindowInfo(__in HWND hwnd,__inout PWINDOWINFO pwi); 参数 hwnd 要检索信息的窗口的句柄。 pwi 指向一个接收信息的 PWINDOWINFO 结构，注意，在调用该函数之前必须设置 cbSize 成员为sizeof(WINDOWINFO)。] typedef struct tagWINDOWINFO { DWORD cbSize; RECT rcWindow; //窗口区域 RECT rcClient; //Client区域 DWORD dwStyle; //窗口样式 DWORD dwExStyle; //窗口扩展样式 DWORD dwWindowStatus; //WS_ACTIVECAPTION表示活动，否则为0 UINT cxWindowBorders; //边框宽度 UINT cyWindowBorders; //边框宽度 ATOM atomWindowType; WORD wCreatorVersion; } WINDOWINFO, *PWINDOWINFO, *LPWINDOWINFO; Members cbSize Type: DWORD The size of the structure, in bytes. The caller must set this member to sizeof(WINDOWINFO). rcWindow Type: RECT The coordinates of the window. rcClient Type: RECT The coordinates of the client area. dwStyle Type: DWORD The window styles. For a table of window styles, see Window Styles. dwExStyle Type: DWORD The extended window styles. For a table of extended window styles, see Extended Window Styles. dwWindowStatus Type: DWORD The window status. If this member is WS_ACTIVECAPTION (0x0001), the window is active. Otherwise, this member is zero. cxWindowBorders Type: UINT The width of the window border, in pixels. cyWindowBorders Type: UINT The height of the window border, in pixels. atomWindowType Type: ATOM The window class atom (see RegisterClass). wCreatorVersion Type: WORD The Windows version of the application that created the window. 返回值如果函数成功，则返回值为非零值。如果该函数失败，则返回值为零。要获取扩展的错误的信息，请调用GetLastError . delphi根据句柄判断窗口状态代码 //用GetWindowLong函数 style := GetWindowLong(MyHandle, GWL_STYLE); if (style and WS_VISIBLE) > 0 then //此句柄窗口是显示的 ShowWindow(MyHandle, SW_HIDE) else ShowWindow(MyHandle, SW_SHOW); 或用GetWindowInfo函数 GetWindowInfo(MyHandle, Pwi); if (Pwi.dwStyle and WS_VISIBLE) > 0 then //此句柄窗口是显示的 ShowWindow(MyHandle, SW_HIDE) else ShowWindow(MyHandle, SW_SHOW); 通过这两个函数，我们可以判断窗体的样式来确定窗体的一些我们所需要的信息! 取得窗体信息的函数还有获取窗口大小（RECT）矩形以下是使用方法： RECT rct; //创建一个RECT变量，用于接收下面函数的出参。 BOOL GetWindowRect(hwd, &rct); //入参窗口句柄 //出参一个RECT变量的地址，于接收函数的获取的值返回值：如果成功：返回非零；失败：返回零；调用GetLastError（）获取错误原因。获取窗口类名 wchar_t strClassName[30] = {0}; //如果当前程序使用的是unicode字符集，那么就使用wchar_t类型，否则使用char类型。int GetClassName(hwd, strClassName, 30) 入参：hwd，窗口句柄缓冲区大小出参：strClassName，缓冲区返回值：成功，返回写入到缓冲区的字符个数；失败，返回零，调用GetLastError（）获取错误原因。获取DC HDC GetDC(hwd); 入参：hwd，窗口句柄返回值：成功，返回，当前窗口的句柄失败，返回，NULL 获取鼠标位置 POINT pt; GetCursorPos（&pt）取窗口信息的相关代码 function GetWindowTitle(hwnd: HWND): string; begin SetLength(Result, 255); SetLength(Result, GetWindowText(hwnd, PChar(Result), 255)); end; function GetWindowClass(hwnd: HWND): string; begin SetLength(Result, 255); SetLength(Result, GetClassName(hwnd, PChar(Result), 255)); end; function GetWindowInfo(hwnd: HWND): string; begin Result := GetWindowTitle(hwnd) + ' [' + GetWindowClass(hwnd) + '] (' + IntToStr(hwnd) + ')'; end; function EnumChildProc(hwnd: HWND; lParam: Integer): BOOL; stdcall; var NewNode, ParentNode: TTreeNode; begin Result := True; ParentNode := TTreeNode(lParam); NewNode := ParentNode.Owner.AddChild(ParentNode, GetWindowInfo(hwnd)); EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode)); end; function EnumWindowsProc(hwnd: HWND; lParam: Integer): BOOL; stdcall; var NewNode: TTreeNode; begin Result := True; NewNode := TTreeView(lParam).Items.Add(nil, GetWindowInfo(hwnd)); EnumChildWindows(hwnd, @EnumChildProc, Integer(NewNode)); end; procedure EnumWindowsTree(Tree: TTreeView); begin EnumWindows(@EnumWindowsProc, Integer(Tree)); end; procedure TForm1.Button1Click(Sender: TObject); begin TreeView1.Items.Clear; EnumWindowsTree(TreeView1); end;

枣庄地区有改19D成功的吗

越更新越大，库克是嫌手机太空非要填满吗

更新完通知栏错乱了有这样的吗 8P 更新完通知栏错乱了有这样的吗 8P

82折出一张100元电子券需要的联系

谁有莱阳汽车站的电话啊网上搜的不是打不通就是没人接谢谢各位了

大爷的帽子有点熟悉哦

正式版状态栏依旧不居中。。这几个版本修复了啥啊

锁屏状态栏变大就算了，还不居中。

更新完真的限速了

还在升级？5点多醒来，发现手机是4G但是上不去网，飞行一下直还在升级？5点多醒来，发现手机是4G但是上不去网，飞行一下直接没4G了，一直3G，也上不去网。。

支付宝效率还是比较高的，反馈后很快就改回来了之前是多加了一个支付宝效率还是比较高的，反馈后很快就改回来了之前是多加了一个小组件的bug

13.2B3反馈 8P 13.2B3反馈 8P

百度网盘傻X么更新了又把跟随系统变暗去掉了

13.2B2 8P运营商和4G变细了，距离变大了 13.2B2 8P运营商和4G变细了，距离变大了

百度网盘也可以设置跟随系统了

Delphi中window消息截获的实现方式（1）近来笔者在一个项目中需要实现一个功能：模仿弹出菜单的隐藏方式，即鼠标在窗口的非PanelA区域点击时，使得PanelA隐藏。经过思考，笔者想到通过处理鼠标的点击事件来实现相应功能。但是，究竟由谁来处理这个点击事件呢？如果窗口中包含多个句柄控件，则不能确定谁能获取到这个鼠标的点击事件，故而无法做出处理。通过热心网友的帮忙，笔者了解到了window消息截获的实现方式，更棒的是：消息截获并不影响消息的正常处理。最终实现的效果非常完美。在此分享给有需要的朋友。下面是消息截获的实现代码。 1.对于有句柄的控件，可以用一下代码 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; PageControl1: TPageControl; ts1: TTabSheet; ts2: TTabSheet; procedure FormCreate(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure AppMsg(var Msg: TMsg; var Handled: Boolean); end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean); var i:integer; begin case Msg.message of WM_LBUTTONDOWN, WM_LBUTTONDBLCLK: begin //拦截PageControl控件的Tab标签切换事件 if Msg.hwnd=PageControl1.Handle then begin for i:=0 to PageControl1.PageCount-1 do begin if PtInRect(PageControl1.TabRect(i),PageControl1.ScreenToClient(Msg.pt)) then begin Handled:=true; ShowMessage(IntToStr(i)); end; end; end; //拦截Button按钮点击事件 if Msg.hwnd=btn1.Handle then begin Handled:=true; ShowMessage('bbbb'); end; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=AppMsg; end; procedure TForm1.btn1Click(Sender: TObject); begin ShowMessage('aaaa'); end; end. 2.对于没有句柄的控件，可以通过矩形区域判断 var Pt: TPoint; MyRect: TRect; begin if (Msg.message = WM_LBUTTONUP) or (Msg.message = WM_RBUTTONUP) then begin GetCursorPos(Pt); MyRect.TopLeft.X := OwnButton5.ClientOrigin.x; MyRect.TopLeft.y := OwnButton5.ClientOrigin.y; MyRect.BottomRight.X := MyRect.TopLeft.X +OwnButton5.Width; MyRect.BottomRight.y := MyRect.TopLeft.y +OwnButton5.Height; if not PtInRect(MyRect,Pt) then Panel14.Visible := False; end; end; 需要注意的是：窗口销毁时，如果应用程序需要继续运行，则要在窗口销毁时解除消息截获，即Application.OnMessage:=nil;

时钟的快捷指令一直没有汉化没想到正式版还有这个问题时钟的快捷指令一直没有汉化没想到正式版还有这个问题

邮政银行更新了！不闪退了大家快去更吧邮政银行更新了！不闪退了大家快去更吧

建设银行APP 今天更新完闪退了？？有用建行的吗建设银行APP 今天更新完闪退了？？有用建行的吗

iOS版更新了，自定义皮肤可以搞自动暗黑模式了！

13.1玩吃鸡掉帧感觉好难受啊，之前没出现这样的问题，是8P老了吗

闲鱼重新安装就可以了之前重新安装也可以，但是用着用着不行了，这次重启了一下还可以用，就是不知道能用多久

B6的文件夹颜色会随着壁纸颜色变化。。。然后就看不清了 B6的文件夹颜色会随着壁纸颜色变化。。。然后就看不清了

光大银行终于更新了。。不闪退了

第三方皮肤如何实现自动切换暗黑模式？现在已经做出来了皮肤，但是不知道如何将亮色和暗色的合在一起

Appstore 更新没有角标了

发现点问题，微信有时候百度输入法无法上屏，需要重新点击输入框发现点问题，微信有时候百度输入法无法上屏，需要重新点击输入框

不是说闲鱼更新了就好了么怎么用着用着又不能用输入法了不是说闲鱼更新了就好了么怎么用着用着又不能用输入法了

锁屏成这样了

刚更新的B4，不知道操作了什么，突然出现这玩意。。。点了还没反应

提取控件名 (?<=\s)\w+?(?=\:)

这个标志啥意思？有懂得么

亲爱的贴吧用户，因系统维护历史数据，2017年1月1日前的贴亲爱的贴吧用户，因系统维护历史数据，2017年1月1日前的贴子暂时无法访问，恢复时间另行通知，对您造成的不便敬请谅解，感谢您的理解和支持

苹果建议：本月晚些时候会公测版，想尝鲜的可以再等等

1 下一页