小编TLa*_*ama的帖子

如何跳过DataSnap中JSON编组的字段序列化?

在Delphi XE2 DataSnap中,是否有通用的方法来跳过JSON编组中的字段序列化?

TBizObjects = class
  DataObject: TDataObject; -- skip this field on serializaing descendants
end;

Model = class(TBizObject);
Run Code Online (Sandbox Code Playgroud)

delphi datasnap delphi-xe2

6
推荐指数
1
解决办法
2390
查看次数

如何在VirtualTreeView中将单元格与背景图像进行颜色混合?

我正在使用VT.Background在VT中显示带有几列的背景图像.
但我无法找到一种方法为细胞使用不同的颜色,因为它们隐藏了背景图像.

我曾尝试使用,OnBeforeItemErase但如果我使用EraseAction := eaColor单元格上的背景位图区域也正在绘制,如果我使用eaDefault的颜色没有被应用.

知道如何做到这一点?

delphi delphi-7 virtualtreeview tvirtualstringtree

6
推荐指数
1
解决办法
2141
查看次数

TVirtualStringTree - 如何更改[ - ]/[+]按钮?

如何使用我自己的自定义按钮(图像)来替换VST中的默认[-]/ [+]按钮?
我想用箭头代替(在此输入图像描述, 在此输入图像描述),还支持RTL bidi模式(在此输入图像描述, 在此输入图像描述).

编辑:我知道bsTriangle样式(ButtonStyle).它不尊重RTL.我想使用自己的自定义图像.

delphi virtualtreeview tvirtualstringtree

6
推荐指数
2
解决办法
1920
查看次数

如何通过<select>下拉列表中的"value"属性选择<option>项?

在我的Delphi应用程序中,我正在使用一个TWebBrowser控件,我在其中加载了一个HTML文档,其中包含一个<select>元素(下拉列表)和一些<option>项目(下拉列表项).假设我在网络浏览器中加载了以下HTML文档:

<html>
<body>
  <select id="ComboBox">
    <option value="firstvalue">First Value</option>
    <option value="secondvalue">Second Value</option>
    <option value="thirdvalue">Third Value</option>
  </select>  
</body>
</html>
Run Code Online (Sandbox Code Playgroud)

我怎样才能以编程方式选择,例如<option>,其value属性是thirdvalue?或者换句话说,当我只知道该项的value属性是thirdvalue什么时,我如何以编程方式选择此下拉列表中的第三项?

delphi dom twebbrowser

6
推荐指数
1
解决办法
6649
查看次数

如何检测非修饰键按键组合?

我在Delphi中遇到以下问题(但它可能被视为一般编程问题).

我想以某种方式处理多个非修饰键组合的按键事件,例如对于A+ D或D+ F或D+ F+ 这样的快捷方式G.

我知道如何处理带有修饰键的快捷键,例如CTRL+ D或CTRL+ ALT+ D或ALT+ D,但是如何检测非修饰键按键组合?

delphi textbox keyboard-shortcuts onkeypress keyboard-events

6
推荐指数
1
解决办法
1115
查看次数

谷歌驱动器直接链接

是否有一些谷歌驱动器文件的直接链接,所以我可以通过他们的链接下载它们?即使是临时链接也足够了.

据我所知,webContentLink只能由浏览器使用,downloadUrl可以用于小文本文件,并且可以与XMLHttpRequest或其他东西一起使用.

google-api google-drive-api

6
推荐指数
1
解决办法
4394
查看次数

InnoSetup:如何从向导页面中删除水平线

有没有办法通过代码从Innosetup向导页面中删除或隐藏水平线控件,以使其更具现代感?

见这里的例子:

在此输入图像描述

谢谢!

inno-setup

6
推荐指数
1
解决办法
575
查看次数

当隐藏一列时,VirtualStringTree列应采用大小

我有一个3列的VST,可以均匀占用可用空间.

(我在Header.Options中设置了hoAutoSpring,所有列都有Column [x] .Option设置了coAutoSpring.)

现在我希望能够隐藏最后一列并保持其他列均匀占用空闲空间(有点像alClient控件).

当我只将列设置为不可见(见下文)时,该列占用的空间就不再使用了.

VST.Header.Columns[2].Options:=VST.Header.Columns[2].Options - [coVisible];
Run Code Online (Sandbox Code Playgroud)

当我将Header.Options.hoAutoResize设置为True并将Header.AutoSizeIndex设置为1时,第二列将占用所有新空间.

是否有方法告诉列填充可用空间并均匀调整大小?

截图:

在此输入图像描述

delphi virtualtreeview tvirtualstringtree

6
推荐指数
1
解决办法
1502
查看次数

如何获取航空和基本设计的标题栏高度和宽度

我正在使用GetSystemMetrics(SM_CXSIZEFRAME)边框的宽度,它适用于基本设计,但不适用于航空,我该如何改进它,使其适用于航空?

我正在使用GetSystemMetrics(SM_CYCAPTION)标题栏的高度,但该值对于基本和航空设计来说都太小了,我在这里做错了什么?

winapi

6
推荐指数
1
解决办法
4314
查看次数

如何在记录结构内声明并集?

我正在尝试定义TWaveFormatExtensible类型,但是我不确定是否正确声明了Samples联合。这是头文件(Windows SDK 10.0.17763.0)中的原始声明:

typedef struct {
    WAVEFORMATEX    Format;
    union {
        WORD wValidBitsPerSample;       /* bits of precision  */
        WORD wSamplesPerBlock;          /* valid if wBitsPerSample==0 */
        WORD wReserved;                 /* If neither applies, set to zero. */
    } Samples;
    DWORD           dwChannelMask;      /* which channels are */
                                        /* present in stream  */
    GUID            SubFormat;
}
Run Code Online (Sandbox Code Playgroud)

这就是我尝试过的:

type
  TWAVEFORMATEX = record
    wFormatTag: Word;
    nChannels: LongWord;
    nSamplesPerSec: Word;
    nAvgBytesPerSec: LongWord;
    nBlockAlign: Word;
    wBitsPerSample: Word;
    cbSize: Word;
  end;

  TWaveFormatExtensible = record
    Format: TWAVEFORMATEX; …
Run Code Online (Sandbox Code Playgroud)

delphi winapi delphi-7

6
推荐指数
1
解决办法
164
查看次数