stanleyxu 的秘密基地

DELPHI 光盘中有一个浏览器的演示程序 coolstuf。我发现它的奇怪问题：一旦你将第三行工具栏“链接栏”拖动到最顶端，然后再拖回原来的位置，那么工具栏最下方会多出一个大概 40px 的空白区域。这个显然是 TCoolBar 没有封装好的缘故，我暂时称该问题为“工具栏错位”。我发现如果有 Band 设置过 FixedSize=True，就会出现偏差，没设置过就没有问题。我猜测可能是工具栏

在设计窗体时通常会把子窗体的 Position 设置成 poMainFormCenter。也就是说，子窗体弹出的位置是主窗体的正中。但是如果把主窗体拖动到屏幕左下角，而且主窗体的50％部分已经超出了屏幕范围，这个时候主窗体的正中其实已经不在屏幕范围之内了。这个时候弹出的子窗体可能部分或者完全处在屏幕之外了。具体解决方法：修改 Forms.pas，修改 procedure TcustomForm