//文字在窗体上水平来回移动procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}beginif label1.Left+label1.Width>0 thenlabel1.Left:=label1.Left-2el...
分类：
移动开发 时间：
2014-07-29 21:46:52
阅读次数：
228
网页放大 网页缩小 WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
缩放网页 Ctrl+中键↑ 放大 Ctrl+中键↓ 缩小 constOLECMDID_OPTICAL_ZOOM = 63;varZoomIn: OleVariant;b...
分类：
Web程序 时间：
2014-07-29 21:46:42
阅读次数：
334
CoolBar这个怎么弄没了像Windows这样的 procedure TForm1.Button1Click(Sender: TObject);
begin CoolBar1.FixedOrder:=True;
end; 来自为知笔记(Wiz)
分类：
其他好文 时间：
2014-07-29 21:46:22
阅读次数：
529
Project Recources...//1提取出资源procedure TForm1.Button1Click(Sender: TObject);begin with TResourceStream.Create(HInstance, 'SnapShot_EXE', RT_RCDATA) do ...
分类：
其他好文 时间：
2014-07-29 21:45:22
阅读次数：
593
//array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一...
分类：
其他好文 时间：
2014-07-29 21:44:22
阅读次数：
306
(*
一般的清空combobox方法 combobox1.clear;
...
combobox9.clear;
*) procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin for i:=0 to self.Com...
分类：
其他好文 时间：
2014-07-29 21:43:32
阅读次数：
690
撤销 重做 -
复制 剪切 粘贴 删除 -
全选 不选 ///编辑
///撤销 WebBrowser1.ExecWB(OLECMDID_REDO ,1);
///重做 WebBrowser1.ExecWB(OLECMDID_UNDO ,1);
///-
///复制 WebBrowser1.ExecW...
分类：
其他好文 时间：
2014-07-29 21:43:22
阅读次数：
206
打印
页面设置
打印预览
文档属性 //------------------------------------------------------------------------------procedure WB_Print();beginForm1.WebBrowser1.ExecWB(O...
分类：
其他好文 时间：
2014-07-29 21:42:32
阅读次数：
288
//屏蔽右键菜单procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginwith Msg dobeginif not IsChild(WebBrowser1.Handle, hWnd)...
分类：
其他好文 时间：
2014-07-29 21:42:22
阅读次数：
468
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Docu...
分类：
其他好文 时间：
2014-07-29 21:42:02
阅读次数：
506
