//res 字符串资源//rc 文件:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以这样写:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//还可以这样写:StringTable...
分类：
其他好文 时间：
2014-07-30 00:20:02
阅读次数：
199
Edit
TEditCut
TEditCopy
TEditpaste
TEditSelectAll
TEditUndo
TEditDelete 编辑 剪切 复制 粘贴 全选 撤销 删除 关联在以下控件上功能有效
TMainMenu
TPopMenu
TToolBar 以下控件功能有效
TMemo
T...
分类：
其他好文 时间：
2014-07-29 21:47:22
阅读次数：
294
编辑模式 浏览模式 设置焦点
//在使用前需要Webbrowser已经浏览过一个网页 否则错误 uses MSHTML;
///获取Webbrowser编辑模式里面的内容procedure EditMode();begin(Form1.WebBrowser1.Document as IHTMLDoc...
分类：
其他好文 时间：
2014-07-29 21:47:12
阅读次数：
312
//垂直显示标签文本Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示';来自为知笔记(Wiz)
分类：
其他好文 时间：
2014-07-29 21:47:02
阅读次数：
279
//文字在窗体上水平来回移动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
