有一个奇怪的问题:我在运行时创建一个TPanele并改变它的颜色 - 但是,颜色仍然是clBtnFace.
这里的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
pnlTest : TPanel;
begin
pnlTest := TPanel.Create(Form1);
pnlTest.Parent := Form1;
pnlTest.Width := 100;
pnlTest.Height := 100;
pnlTest.Color := clRed;
end;
有任何想法吗？谢谢!
我有一个TRichEdit.当我选择一些文本并单击另一个元素时,所选文本的选择将消失.有没有办法保持这种选择,当TRichEdit失去它的焦点时？谢谢!
我有一个带有自动化对象的Delphi应用程序.在程序开始时,我想在注册表中自动注册COM对象(而不是使用/ regserver开关).
该程序的旧版本是用Delphi 7编写的,我想我记得这个版本在程序启动后注册了.但是现在它是用D2009编译的,现在它没有注册.也许有人对此有所了解？
非常感谢你!
我创建了一个简单的类并遇到了一个小问题:我只想使用类单元中的"findComponent"方法.我已经包含了类单元,但是Delphi找不到findComponent方法.为什么？我确信这是一个非常简单的问题......
unit U_Test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, QStdCtrls;
type
TTest = Class
public
//
private
procedure test();
End;
implementation
procedure TTest.test();
begin
FindControl('test'); // FindControl is found in unit controls
FindComponent('test'); // FindComponent is NOT found, but unit classes is included
end;
end.
我有一个使用 ADS 服务器（版本 10.10）的应用程序（用 Delphi 2009 编写）。我正在使用 TDataSet 组件来访问数据库。
在我的开发机器上一切正常。但在测试机器（也使用 ADS 10.10）上，当尝试打开从包含 unicode 字段的表中选择数据的 TAdsQuery 时，我收到错误 1500。
知识数据库表明文件 aicu.dll 和 icudt40l.dat 必须同时存在于客户端和服务器上。我已经在两台机器上检查过这一点，它们都存在于 Advantage 10.10\Server 目录中。
也许其他人经历过这个错误，可以给我提示哪里出了问题吗？谢谢！