06 2009 档案

delphi中屏蔽浏览器控件右键菜单
摘要：procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var mPoint : TPoint;begin if IsChild(WebBrowser1.Handle, Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message... 阅读全文
posted @ 2009-06-25 02:20 谭志宇 阅读(586) 评论(0) 推荐(0) 编辑
判断是否滚动条
摘要：var Style: Integer;begin Style := GetWindowLong(Handle, GWL_STYLE);//wnd为控件句柄 if (Style and (WS_VSCROLL)) <> 0 then Caption := 'Yes' else Caption := 'No';end; 阅读全文
posted @ 2009-06-08 11:32 谭志宇 阅读(196) 评论(0) 推荐(0) 编辑
查找网页历史记录URL以及对应中文名称
该文被密码保护。
posted @ 2009-06-01 15:21 谭志宇 阅读(1) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示