XE2011 - 博客园

2014年8月1日

摘要： procedure TPopupMenu.Popup(X, Y: Integer); 这个点是相对桌面的而不是窗体的 GetCursorPos是鼠标的位置鼠标动这个点就不一样 var p:TPoint; begin GetCursorPos(p); PopupMenu1.Popup(p.x,p.Y); end; 现在要取得 Button1的Le... 阅读全文

posted @ 2014-08-01 09:25 XE2011 阅读(1307) 评论(0) 推荐(0)

2014年7月29日

delphi res 字符串资源

摘要： //res 字符串资源//rc 文件:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以这样写:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//还可以这样写:StringTable{0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD&qu 阅读全文

posted @ 2014-07-29 20:30 XE2011 阅读(276) 评论(0) 推荐(0)

delphi label1 文字在窗体上水平来回移动

摘要： //文字在窗体上水平来回移动procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}beginif label1.Left+label1.Width>0 thenlabel1.Left:=label1.Left-2else label1.Left:=form1.Width;end;来自为知笔... 阅读全文

posted @ 2014-07-29 20:27 XE2011 阅读(243) 评论(0) 推荐(0)

delphi Edit - TActionList

摘要： Edit TEditCut TEditCopy TEditpaste TEditSelectAll TEditUndo TEditDelete 编辑剪切复制粘贴全选撤销删除关联在以下控件上功能有效 TMainMenu TPopMenu TToolBar 以下控件功能有效 TMemo TEdit ... 阅读全文

posted @ 2014-07-29 20:24 XE2011 阅读(258) 评论(0) 推荐(0)

delphi CoolBar这个怎么弄没了

摘要： CoolBar这个怎么弄没了像Windows这样的 procedure TForm1.Button1Click(Sender: TObject); begin CoolBar1.FixedOrder:=True; end; 来自为知笔记(Wiz) 阅读全文

posted @ 2014-07-29 20:18 XE2011 阅读(258) 评论(0) 推荐(0)

delphi Components[i]清除所有edit控件中的内容

摘要： (* 一般的清空combobox方法 combobox1.clear; ... combobox9.clear; *) procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:=0 to self.ComponentCount-1 do begin if self.Compo... 阅读全文

posted @ 2014-07-29 20:17 XE2011 阅读(825) 评论(0) 推荐(0)

delphi Caption 垂直显示标签文本

摘要： //垂直显示标签文本Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示';来自为知笔记(Wiz) 阅读全文

posted @ 2014-07-29 20:16 XE2011 阅读(270) 评论(0) 推荐(0)

delphi array应用 DayOfWeek星期几判断

摘要： //array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一 ';days[3] := '二 ';days[... 阅读全文

posted @ 2014-07-29 20:15 XE2011 阅读(942) 评论(0) 推荐(0)

delphi 2010 资源文件使用

摘要： Project Recources...//1提取出资源procedure TForm1.Button1Click(Sender: TObject);begin with TResourceStream.Create(HInstance, 'SnapShot_EXE', RT_RCDATA) do begin SavetoFile('SnapShot.exe... 阅读全文

posted @ 2014-07-29 20:11 XE2011 阅读(782) 评论(0) 推荐(0)

delphi 18 屏蔽和替换右键菜单

摘要： //屏蔽右键菜单procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginwith Msg dobeginif not IsChild(WebBrowser1.Handle, hWnd) then Exit;Handled := (message= ... 阅读全文

posted @ 2014-07-29 20:07 XE2011 阅读(440) 评论(0) 推荐(0)

delphi 16 网页缩放

摘要：网页放大网页缩小 WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50; 缩放网页 Ctrl+中键↑ 放大 Ctrl+中键↓ 缩小 constOLECMDID_OPTICAL_ZOOM = 63;varZoomIn: OleVariant;beginZoomIn := 10;WebBro... 阅读全文

posted @ 2014-07-29 20:06 XE2011 阅读(418) 评论(0) 推荐(0)

delphi 14 内容编辑

摘要：撤销重做 - 复制剪切粘贴删除 - 全选不选 ///编辑 ///撤销 WebBrowser1.ExecWB(OLECMDID_REDO ,1); ///重做 WebBrowser1.ExecWB(OLECMDID_UNDO ,1); ///- ///复制 WebBrowser1.ExecWB(OLECMDID_COPY,1); ///剪切... 阅读全文

posted @ 2014-07-29 20:03 XE2011 阅读(220) 评论(0) 推荐(0)

delphi 13 打印相关

摘要：打印页面设置打印预览文档属性 //------------------------------------------------------------------------------procedure WB_Print();beginForm1.WebBrowser1.ExecWB(OLECMDID_PRINT,1);end;//---------------... 阅读全文

posted @ 2014-07-29 20:02 XE2011 阅读(231) 评论(0) 推荐(0)

delphi 11 编辑模式浏览模式

摘要：编辑模式浏览模式设置焦点 //在使用前需要Webbrowser已经浏览过一个网页否则错误 uses MSHTML; ///获取Webbrowser编辑模式里面的内容procedure EditMode();begin(Form1.WebBrowser1.Document as IHTMLDocument2).designMode := 'on';end;//-----------... 阅读全文

posted @ 2014-07-29 20:01 XE2011 阅读(395) 评论(0) 推荐(0)

delphi 08 HTML组件

摘要： ///HTML组件///后面的字符串为这个控件的ID号///直线Line(WebBrowser1.Document as IHTMLDocument2).execCommand('InsertHorizontalRule', True, '');///按钮Button(WebBrowser1.Document as I... 阅读全文

posted @ 2014-07-29 19:59 XE2011 阅读(250) 评论(0) 推荐(0)

Testudo

每天要进步一点点。

公告