小编Sys*_*mes的帖子

在某些时候,我的IDE Insight功能停止工作.我已经检查了我的系统上的XE5和XE6版本,但都没有工作,所以它必须是环保的.

当我点击菜单项时,没有任何内容弹出.没有给出错误,只是没有IDE插入屏幕.使用快捷方式时会发生相同的结果.

我正在运行Windows 7,Delphi Professional XE5和XE6.

有人知道怎么修这个东西吗？

我有一个我正在构建的应用程序,它有一个带有几个创建的TabSheets的PageControl,我在其上放置了几个预定义的框架.每个框架中都有一个名为"GetValue"的例程,它将其控件的内容解析为字符串并返回结果.在主表格(RGMain)上我有:

Type
   TGetValueFunction = Function: String;
...   
Private
   fGetValueFunction: TGetValueFunction;
...      
Public
   Property GetValueFunction: TGetValueFunction Write fGetValueFunction;

在我拥有的每个框架中:

Public
Constructor Create(AQwner: TComponent);
...
Interface
Constructor TBooleanChoiceFrame.Create(AOwner: TComponent);
   Begin
   Inherited Create(AOwner);
   RGMain.GetValueFunction := GetValue; <<<< compile error on this line
   End;

E2009不兼容的类型:'常规过程和方法指针'

除了纠正问题之外,这是解决每个帧中访问GetValue例程的问题的正确方法吗？

有没有人有TDictionary<TKey, TValue>在其构造函数期间填充的示例代码？

我有一个小的Delphi XE5程序,其唯一目的是执行另一个Windows程序.该程序通过Windows终端仿真器的调用启动.我们正在尝试使用服务器上的DLL在服务器上执行程序.因此,将当前目录设置为包含DLL的服务器上的目录非常重要.终端仿真程序不允许设置当前目录.因此需要这个计划.

程序运行正常并解决了我们的"当前目录"问题,除了我们得到一个控制台屏幕,当程序启动时,屏幕会短暂出现在屏幕上.由于它不是控制台应用程序,我无法理解为什么会出现此控制台类型屏幕.任何人都可以告诉我如何摆脱这个并让程序执行而不显示自己？

以下是代码:

    program DoProg;

uses
   SysUtils, ShellAPI, Windows;

const
   ExeAreaDir = '\\public\dd3\Release';
   ExeArea = ExeAreaDir + '\';

procedure RunProg(Path, Param: String);
var
   SEInfo: TShellExecuteInfo;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
   begin
   fMask := SEE_MASK_NOCLOSEPROCESS;
   Wnd := 0;
   lpFile := Pchar(Path);
   lpParameters := Pchar(Param);
   lpDirectory := Pchar(ExtractFilePath(Path));
   nShow := SW_SHOWNORMAL;
   end;
ShellExecuteEx(@SEInfo);
end;

begin
SetCurrentDir(ExeAreaDir);
RunProg(ExeArea + ParamStr(1), ParamStr(2));

end.