小编Sal*_*dor的帖子

我在组件TwebBrowser中发现了一个奇怪的行为,当我加载某些页面时,它们会显示较大的字体.与Internet Explorer中使用的不同.

看这些样本图像

在这个链接中http://docwiki.embarcadero.com/RADStudio/en/Main_Page在TWebBrowser中加载了较大的字体,在IE中加载了小字体(另一种样式).

此页面https://stackoverflow.com/ 在TWebBrowser组件和IE中加载了相同的样式.

我在不同的机器上尝试过,同样的事情发生了.

我该如何解决这个问题呢？这是一个CSS的问题？

我有这样的基类声明

type
  TBaseClass=class
   protected
    constructor Create(LoadData:boolean;const Param1,Param2:string); overload;
   public
    Destructor  Destroy; override;
  end;

现在，在另一个单元的子类TChid_Class，从下降 TBaseClass

  TChid_Class=class(TBaseClass)
   function Create(const Param1, Param2 : String;const Param3 : OleVariant ; var Param4 : LongInt): Integer;overload;
   constructor Create; overload;
   constructor Create(LoadData:boolean); overload;
  end;

在此类中，存在一个称为Create构造函数的函数，问题是，当我尝试创建实例时TChid_Class遇到访问冲突。

我写了这个小控制台应用程序，显示了问题

program TestClass;

{$APPTYPE CONSOLE}

uses
  Variants,
  SysUtils;

type
  TBaseClass=class
   protected
    constructor Create(LoadData:boolean;const Param1,Param2:string); overload;
   public
    Destructor  Destroy; override;
  end;

  TChid_Class=class(TBaseClass)
   function Create(const Param1, Param2 : String;const Param3 : OleVariant ; var Param4 : LongInt): …

我想将版本和编码添加到使用TXMLDocument组件创建的xml文件中

<?xml version="1.0" encoding="utf-8"?>

我正在这样做

XmlDoc   :=TXMLDocument.Create(nil);
XmlDoc.Version:='1.0';
XMLDoc.Encoding:='utf-8';

但我收到此行中的访问冲突

XmlDoc.Version:='1.0';

我如何添加版本和编码？

我需要一种在运行时创建24位位图(并保存到文件)的快速方法,指定宽度,高度和颜色

就像是

procedure CreateBMP(Width,Height:Word;Color:TColor;AFile: string);

并像这样打电话

CreateBMP(100,100,ClRed,'Red.bmp');

我有一个像这样声明的TDictionary TDictionary<String,Integer>,现在我想获得存储在TDictionary中的最大值.我可以做这个迭代TDictionary和比较值,但我想知道存在更好的方法来做到这一点？exist any function or maybe the dictionary can be sorted by the values to retrieve the max value stored?

这就是我现在正在做的事情

var
   MyDict       : TDictionary<String,Integer>;
   MaxValue, i  : Integer;
begin
   MyDict:=TDictionary<String,Integer>.Create;
   try    
     MyDict.Add('this',1);
     MyDict.Add('is',7);
     MyDict.Add('a',899);
     MyDict.Add('sample',1000);
     MyDict.Add('finding',12);
     MyDict.Add('the',94);
     MyDict.Add('max',569);
     MyDict.Add('value',991);

     MaxValue:=MyDict.ToArray[0].Value;
     for i in MyDict.Values do
      if i>MaxValue then MaxValue:=i;

     ShowMessage(Format('The max value is %d',[MaxValue]));
   finally
     MyDict.Free;
   end;
end;

我有一些问题与我的应用程序使用的Riched20.dll文件,这个问题是修复应用KB884047修补程序,以避免旧的Windows版本的问题,我想检测何时在系统中应用此修补程序,所以如何使用delphi检查我的系统中是否安装了特定的修补程序(Windows更新)？

我需要从网址下载一个文件,其格式类似于http://server.com/settings/files/1我在网络浏览器中粘贴此网址时这可以确定要在这种情况下下载的文件的名称scheme_563.txt,我的问题是如何检索文件的名称(这显然是不包含在URL)使用WinInet函数下载？目前我使用的是HttpQueryInfo与像HTTP_QUERY_CONTENT_LOCATION,HTTP_QUERY_CONTENT_DESCRIPTION等,但没有运气的倍数值的功能.

我正在使用DLL,有时会引发未处理的异常.我使用madExcept来检测和调试有缺陷的代码,但是当我最终部署我的DLL时,我希望在DLL中包含我自己的全局异常处理程序来记录异常.

所以问题是如何在我的Delphi DLL中设置全局异常处理程序？

我写这需要执行一个非常古老的第三方安装应用程序,这个老的安装程序(称为SETUP.EXE)只能从根文件夹的工作(如果不是失败)一个INNO-setup脚本,所以我需要创建(和删除)网络驱动器复制此安装程序的文件,然后执行setup.exe.所以问题是如何从inno-setup创建和删除网络驱动器？我看起来像 WNetAddConnection功能.

我在在线文档或Delphi XE2附带的演示中找不到任何样本,用于FMX.TreeView.TTreeView在运行时向控件添加节点.那么,如何在运行时添加,删除和遍历FireMonkey TreeView的节点？