共 12 篇文章 |
|
Windows API函数使用技巧。lfItalic: Byte;用于指定字体的平均宽度,由于Windows系统下的大多数字体都是比例字体因而采用平均宽度这个表示方法。指定采用的字体名称。lfHeight和lfWidth来确定字体的尺寸,使用lfEscapement和lfOrientation来确定字体的输出方向,使用lfWeight, lfItalic, lfUnderline,lfStrikeOut, 来确定字体的加重,斜体,下... 阅806 转10 评0 公众公开 07-04-11 11:15 |
可以使用以下任意一种方式打开一个文件夹: ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL); 或者 ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL); 使用下面的调用搜索文件夹: ShellExecute(handle, "explore", path_to_folder, NULL, ... 阅6338 转16 评0 公众公开 07-04-09 17:21 |
<body>demo of calling Javascript from Delphi<form><select size=1 name="selfont"><option value="Verdana" selected>Verdana</option><option value="Arial">Arial</option><option value="Courier New">Courier New</option><option v... 阅4933 转29 评0 公众公开 07-04-05 14:08 |
我打算在窗体上动态添加webbrowsrvar.weber: TWebBrowser;weber:=TWebBrowser.Create(Self);with weber dobegin.Parent:=self;end;06年9月9日 Parent已经被TWebBrowser重新定义了,可以通过访问它的祖先类TControls实现。weber := TWebBrowser.TControl(weber).Parent := Self;06年9月9日 这种分给的就是心甘情愿! 阅419 转1 评0 公众公开 07-04-05 14:00 |
比如说一个程序定时弹出messagebox窗口进行提示,如何让它显示在其他窗口的前面?只要在MessageBox函数中加入 MB_SYSTEMMODAL 常数就能实现最前端显示!至于定时关闭,用TIMER设定时间,到时找到messagebox窗口句柄,发送关闭消息即可!★那么如何让这个messagebox上动态的显示当前的时间呢?TempterX(兄弟)做法较好,不过根据窗体标题找窗体... 阅4514 转5 评0 公众公开 07-04-04 17:52 |
B : Bold tag <B> : start bold text</B> : end bold text.Example : <P align="right">This is a test</P>Example : <P align="center">This is a test</P>Example : <P align="left" bgcolor="#ff0000">This has a red background</P>Example : &l... 阅160 转0 评0 公众公开 07-04-03 18:26 |
ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);OleObject.document.all.item(‘LoginUserID‘,0); //找到登录用户名的输入框o.value := ‘TEST‘;o := WebBrowser.oleobject.document.all.item(‘LoginPassword‘,0); //找到登录密码的输入框o.value := ‘TEST‘WebBrowser.oleobject.doc... 阅3067 转28 评0 公众公开 07-04-02 15:18 |
在要使用此模版预览打印的HTML文件中加入一个id为Header的div标记,括起HTML页眉内容,并制定以英寸为单位的页眉的高度和宽度,其中宽度应该和模版相符。然后把HTML文件和相关的图片文件等资源加到工程中,然后编译即可。原因有二:一,GIF等图片文件加入到工程中时,Studio可能会把文件内容自动改了,使得该文件不能正确显示;资源脚本弄好了... 阅6129 转27 评0 公众公开 07-04-02 11:01 |
8. 在WebBrowser加载html页面完成后,在页面顶端插入HTML代码, 下面两种方式斗可以. {1. ----------------------------------------------------------------} procedure TForm1.Button1Click(Sender: TObject); var.if WebBrowser1 =nil then begin Handled :=False;Message =WM_KEYUP)) and ((Msg.wParam =VK_BACK) or (Msg.wParam =VK_LE... 阅2705 转22 评0 公众公开 07-04-02 10:49 |
阅241 转3 评0 公众公开 07-03-20 15:49 |