小编fos*_*ilz的帖子

如何检查我的应用程序是否具有焦点?

我想要做的是检查我的应用程序是否具有焦点,因为如果不是,那么我将在通知区域上方弹出警报窗口以向最终用户显示一些消息.

delphi winapi vcl notification-area

8
推荐指数
2
解决办法
7304
查看次数

是否可以将记录存储在ListBox的Item.Object属性中?

我有一个记录,我想为添加到列表框的每个项目存储.我是否需要让记录成为一个类来完成这个?

TServerRec = record
    ID: integer;
    DisplayName: string;
    Address: string;
    Port: integer;
end;

procedure TMainForm.PopuplateServers;
var
  server: TServerRec;
begin
  for server in FServerList do
  begin
    lbServers.AddObject(server.DisplayName, server);
  end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi listbox listboxitem

4
推荐指数
2
解决办法
2252
查看次数

维持N个同时HTTP下载

我有一个按日期范围查询Web服务的应用程序.Web服务返回GUID列表.然后我获取每个GUID并下载它对应的WAV文件.现在我一个接一个地做,工作正常.我想要做的是同时下载N个WAV文件.出于某种原因,我无法掌握实现这一目标的好方法.

我使用IP*Works(n/Software)TipwHTTP(异步)组件.

任何人都有任何建议让我朝着正确的方向前进.

delphi http delphi-2010

3
推荐指数
1
解决办法
624
查看次数

Delphi相当于.net的DateTime.ToString("s")(DateTime Sortable)

Delphi中有相同的东西吗?我查看了文档,找不到任何可以提供我想要的输出的内容.

.net c# delphi function

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

为什么IsUTF8String返回false?

我有一些简单的代码:

procedure TForm1.Button1Click(Sender:TObject);
var
  x: RawByteString;
begin
  x := UTF8Encode('testing utf8');
  if (IsUTF8String(x)) then
    Memo1.Lines.Add('true');
end;
Run Code Online (Sandbox Code Playgroud)

这返回False,我做错了什么?

delphi delphi-xe

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