vcl

0热度

1回答

我刚从官方ISO安装了RAD 10.2 Tokyo，但是使用了试用期序列号。它在我开始时说“建筑师”（尽管我想试用企业版）。现在在Delphi文件夹中，当我找到源代码时，我发现了几个子文件夹，如rtl，但没有VCL子文件夹。有没有人拥有这些文件？我是否因为安装了试用版而错过了它，Embarcadero是否停止提供它们？在我的旧版Delphi XE2中，我也有FireMonkey框架资源，但在这

0热度

1回答

使用gridrow的数据找到treeview的节点

首先，我有一个数据库：它可以是文件或文件夹/地图与这些项目（更多列在表中，但我怀疑他们是否需要这个） id | name | parent_id ---------------------------- 1 | A | nil 2 | A1 | 1 3 | A2 | 1 4 | A21 | 2 5 | B | nil 6 | C | nil 7 | C1 | 6 我成功地通过使

0热度

1回答

如何确定哪些组件在C++ Builder中具有程序焦点

我正在使用C++ Builder XE4 32位VCL平台。我正在为Windows操作系统编写代码。我有一个有很多组件的MainForm。当我按下键盘箭头键并触发表格的OnShortCut事件时，如何确定哪个组件具有程序焦点？我有不同的行动，必须根据哪个组件具有焦点采取不同的行动。 void __fastcall TMainForm::FormShortCut(TWMKey &Msg, boo

0热度

1回答

使用C++ Builder项目读取字符串中的文件时出现错误

我想将整个文件读入字符串。我正在使用Embarcadero C++ Builder XE。当我使用我的项目中下面的代码，它给错误： #include <iostream> #include <iomanip> #include <iterator> #include <fstream> std::ifstream in(Path); std::string s((std::istre

1热度

1回答

Graphics32用阴影图案填充多边形

我想转换一个delphi XE4应用程序来使用Graphics32库进行绘制而不是使用标准的delphi绘图方法。我做的一件事就是绘制一个图标，其中包含一个带对角十字形图案的小椭圆。图标应该是这样的：这里是我如何做到这一点与标准TCanvas绘制方法： ACanvas.Brush.Color := shape.pcolor; ACanvas.Brush.Style := bsdiagCros

2热度

2回答

TVirtualStringTree ScaleBy Stretch

我试图让VST在其高度和宽度改变时自动调整大小。我没有与其他放置VCL组件的问题，其中一些有像TImage一样的属性“拉伸”，它可以让它们自动调整。 VST保持固定并保持节点高度和列宽度。我看过Header-> hoAutoResize，hoColumnResize。在这个问题上，AutoSizeIndex <> -1不是很有用，因为我需要每列都缩小。我想这就是为什么这些什么都不做。将Aut

2热度

1回答

将TImageList字形绘制到TDirect2DCanvas

我目前正在将旧组件的绘制代码从GDI + UniScribe替换为Direct2D和DirectWrite（后继）。到目前为止，过渡很简单，因为大部分时间我需要做的是将对Canvas（类TCanvas）的调用替换为自定义的FDirect2DCanvas实例（来自Direct2D单元的TDirect2DCanvas类）。不幸的是，当试图从TImageList实例绘制字形到FDirect2DCan

2热度

1回答

识别鼠标光标下的组件不适用于TImage控制

我正在使用以下过程来识别Delphi XE3中我的鼠标下的控件。所有适用于vcl.contols。但是，当鼠标超过TImage时，不会返回控件名称。 procedure TMainForm.ApplicationEvents1Idle(Sender: TObject; var Done: oolean); var ctrl : TWinControl; begin ct

5热度

2回答

TToolbar在一段时间后停止显示按钮标题

任何想法TToolButtons的TToolbar会在一段时间后停止显示按钮标题？这发生在整个应用程序中自动创建的表单上的所有工具栏。即使出现这个问题，动态创建的表单上的工具栏也可以正常工作我只看到这种情况发生在一个Windows 7的笔记本电脑。发生这种情况时不会产生错误，并且我无法在命令中重现问题。唯一的解决方案是重新启动应用程序。 TToolbar.ShowCaptions始终是真实的，从

0热度

2回答

delphi XE7中的KeyDown需要转移到寄存器

UPDATE：我的机器上的另一个进程干扰了快捷方式检测。在VCL TStringgrid我想复制使用“CTRL + C “和/或内容” CTRL + C” 代码段：上述 procedure TEditWaterFrame.sgSSPKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtr