小编use*_*613的帖子
CSS中每个<h1>标题下方的水平规则/行
我试图在每个实例下面自动放置一条100%水平线(规则)
<h1>
使用CSS的标头标签.
我希望看到的例子:
---剪断8 <---
介绍
---剪断8 <---
我在CSS中有这个:
.mypage .headline {
font-family: Calibri, "Helvetica", san-serif;
line-height: 1.5em;
color: black;
font-size: 20px;
}
我在我的主HTML页面中有这个:
<body class="mypage">
<h1><span class="headline">Introduction</span></h1>
我无法弄清楚如何在每次使用标题类之后出现水平线.
推荐指数
解决办法
查看次数
Delphi XE3 EXE文件大小比Dephi 7大25倍
作为测试,我决定使用Delphi 4,5,6,7,2005,2010和XE3在Delphi中创建一个简单的"Hello world"应用程序.该应用程序只不过是一个TForm,一个带有OnClick事件的TButton调用ShowMessage('Hello world').
以下是关闭调试的每个最终EXE的结果:
有人可以解释为什么XE3版本比之前版本的Delphi平均大26倍？
以下是我对XE3的项目设置:
推荐指数
解决办法
查看次数
如何读取UTF8编码的INI文件？
我有一个UTF-8格式的INI文件.
我正在使用Delphi 2010读取INI文件并使用INI文件中的值填充TStringGrid.
var
ctr : Integer;
AppIni : TIniFile;
begin
AppIni := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'test.ini');
for ctr := 1 to StringGrid1.RowCount do begin
StringGrid1.Cells[0,ctr] := AppIni.ReadString('Column1','Row'+IntToStr(ctr),'');
StringGrid1.Cells[1,ctr] := AppIni.ReadString('Column2','Row'+IntToStr(ctr),'');
end;
AppIni.Free;
问题是unicode字符出现在TStringGrid中,显示2个字符,而不是1个unicode字符.
我该如何解决这个问题？
推荐指数
解决办法
查看次数
MOUSE_WHEEL delta总是积极的
我正在尝试使用Delphi 7中的TApplicationEvents.OnMessage事件检测鼠标滚轮的移动(当按下CTRL键时).这是我正在使用的代码:
if Msg.message = WM_MOUSEWHEEL then begin
if Word(Msg.wParam) = MK_CONTROL then begin
Edit1.Text := IntToStr(HiWord(Msg.wParam));
if HiWord(Msg.wParam) < 0 then begin
IncZoom;
end else begin
DecZoom;
end;
end;
end;
根据MSDN资源(http://msdn.microsoft.com/en-us/library/windows/desktop/ms645617(v=vs.85).aspx),(Msg.wParam)的HiWord的负值表示车轮向后移动,朝向用户.
问题是,当车轮向后移动时,我从未收到负值.当我向后滚动时,我得到120的值.当我向前滚动时,我得到65416.
我究竟做错了什么？
推荐指数
解决办法
查看次数
将多行粘贴到TEdit中
对于TEdit组件,组件是否可以通过将换行符转换为空格来处理来自Windows剪贴板的多行粘贴？
换句话说,如果Windows剪贴板上有以下数据:
Hello
world
!
...并且用户将光标放在TEdit中然后按下CTRL + V,是否可以让TEdit显示输入为:
你好,世界 !
推荐指数
解决办法
查看次数
StringReplace无法替换字符串的所有实例
Dephi 7帮助手册说StringReplace ...
返回一个字符串,其出现的一个子字符串被另一个子字符串替换...
如果Flags不包含rfReplaceAll,则StringReplace仅替换S中第一次出现的OldPattern.否则,StringReplace将NewPattern的所有实例替换为NewPattern.
声明,"否则,StringReplace用NewPattern替换OldPattern的所有实例"似乎是BOGUS语句,因为在下面的示例中,即使在我指示函数"替换'aa'的所有实例之后,"aa"的实例仍然存在(OldPattern)带'a'(NewPattern)"!
StringReplace('aaa aaa','aa','a',[rfReplaceAll]);
如果德尔福手册是准确的,那么我应该得到'aa'作为最终结果.不幸的是,我得到'aa aa'.显然,并非所有"OldPattern"('aa')的实例都被替换.
这是一个错误,还是仅仅是对该功能的误导/不准确的描述？
推荐指数
解决办法
查看次数
第一行文本缩进的CSS替代？
我在<p>使用Internet Explorer的Active-X插件打印页面时如何呈现text-indent属性时遇到问题.这是相关的CSS:
p {
font-family: Calibri;
font-size: 20pt;
line-height: 1.75em;
margin-bottom: 1.00em;
margin-top: 1.00em;
margin-left:1.0em;
margin-right:1.0em;
text-indent:1.5em;
}
下面您可以看到使用上面的代码打印HTML页面时发生的情况:
每个新页面的顶部都应用了文本缩进!是否有另一种方法让每个<p>"段落标记" 的第一行缩进而不使用"text-indent"属性？解决方案必须独立于浏览器.
推荐指数
解决办法
查看次数
手动滚动TComboBox
当我以编程方式导致下拉选择列表出现时,我无法弄清楚为什么我无法手动滚动TComboBox组件.这是我正在使用的代码:
SendMessage(ComboBox1.handle, CB_SHOWDROPDOWN, Integer(True), 0);
这会导致下拉选择列表出现.但是,如果我尝试使用键盘并使用向上和向下箭头键,则下拉选择列表会立即关闭.使用键盘上/下导航键时如何防止列表自动关闭？
推荐指数
解决办法
查看次数
标签 统计
delphi ×6
delphi-2010 ×4
delphi-7 ×3
css ×2
delphi-xe2 ×2
html ×2
delphi-xe ×1
delphi-xe3 ×1
replace ×1