- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如何读取另一个应用程序窗口中的列表框项目?我可以获得窗口的句柄,但我不知道访问其中组件的明确方法。
最佳答案
您可以尝试从以下项目中获取一些内容,其中显示了如何枚举子窗口,针对给定的类名过滤它们以及如何获取列表框的项目。我会评论它,但这将是一个很长的故事,所以请将其作为临时帖子...
Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TEnumData = class
ClassName: string;
HandleItems: TStrings;
end;
type
TForm1 = class(TForm)
CloneListBox: TListBox;
HandleEdit: TEdit;
HandleListBox: TListBox;
HandleEnumButton: TButton;
procedure HandleEnumButtonClick(Sender: TObject);
procedure HandleListBoxClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function EnumCallback(Handle: HWND; EnumData: TEnumData): BOOL; stdcall;
var
Buffer: array[0..255] of Char;
begin
Result := True;
if GetClassName(Handle, Buffer, 256) <> 0 then
if Buffer = EnumData.ClassName then
EnumData.HandleItems.Add(IntToStr(Handle));
end;
procedure GetListBoxItems(Handle: HWND; Target: TListBox);
var
I: Integer;
ItemCount: Integer;
TextBuffer: string;
TextLength: Integer;
begin
ItemCount := SendMessage(Handle, LB_GETCOUNT, 0, 0);
if ItemCount <> LB_ERR then
begin
Target.Items.BeginUpdate;
try
Target.Clear;
for I := 0 to ItemCount - 1 do
begin
TextLength := SendMessage(Handle, LB_GETTEXTLEN, I, 0);
SetLength(TextBuffer, TextLength);
SendMessage(Handle, LB_GETTEXT, I, LPARAM(PChar(TextBuffer)));
Target.Items.Add(TextBuffer);
end;
finally
Target.Items.EndUpdate;
end;
end;
end;
procedure TForm1.HandleEnumButtonClick(Sender: TObject);
var
EnumData: TEnumData;
begin
EnumData := TEnumData.Create;
try
EnumData.ClassName := 'TListBox';
EnumData.HandleItems := HandleListBox.Items;
EnumChildWindows(StrToInt(HandleEdit.Text), @EnumCallback, LPARAM(EnumData));
finally
EnumData.Free;
end;
end;
procedure TForm1.HandleListBoxClick(Sender: TObject);
var
SourceHandle: Integer;
begin
if TryStrToInt(HandleListBox.Items[HandleListBox.ItemIndex], SourceHandle) then
GetListBoxItems(SourceHandle, CloneListBox);
end;
end.
Unit1.dfm
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 259
ClientWidth = 460
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object CloneListBox: TListBox
Left = 224
Top = 8
Width = 228
Height = 243
ItemHeight = 13
TabOrder = 0
end
object HandleEnumButton: TButton
Left = 127
Top = 8
Width = 88
Height = 25
Caption = 'Enumerate'
TabOrder = 1
OnClick = HandleEnumButtonClick
end
object HandleListBox: TListBox
Left = 8
Top = 40
Width = 207
Height = 211
ItemHeight = 13
TabOrder = 2
OnClick = HandleListBoxClick
end
object HandleEdit: TEdit
Left = 8
Top = 8
Width = 113
Height = 21
TabOrder = 3
Text = '0'
end
end
Project1.dpr
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
关于delphi - 另一个应用程序中的列表框内容,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12071172/
我正在为我的按钮使用 onClick 功能。我的按钮代码如下所示: Button 1 Button 2 我的 JS 函数如下所示: function fadeNext(selectedId, spee
首先,我想提一下,我理解每个人在不提供至少一些试验或错误的情况下提出问题的感受,但这纯粹是一种知识需求,话虽如此,我会去提前问。 我一直无法弄清楚如何将保存在 MySQL 表中的 600-1000 个
我想做的事情有点令人困惑,而且我英语不太好,所以我先把代码贴在这里,这样你就可以很容易地理解: 以下是表单内容: Testing for Stackoverflow Option1
我学习 SDL 二维编程已有一段时间了,现在我想创建一个结合使用 SDL 和 OpenGL 的程序。我是这样设置的: SDL_Init(SDL_INIT_VIDEO); window = SDL_Cr
我创建了 2 个 data-* 标签。数据类别和数据标签。单击 href 标签后,我想复制该数据类别和数据标签以形成输入。我的代码是:
我想用 CSS 换行。我正在使用内容。 td:before { content: "Test\A Test2"; } 它不工作。如何正确
这个问题已经有答案了: Java Class that implements Map and keeps insertion order? (8 个回答) 已关闭 6 年前。 我有一个 HashMap
我正在尝试使用 JMeter 执行端到端测试。测试涉及写入SFTP文件夹并从另一个SFTP文件夹读取写入操作生成的文件。 我能够使用 JMeter SSH SFTP 插件连接到 SFTP 文件夹,并能
您好,我有带有标准服务器端 Servlet 的 GWT 客户端。 我可以从 GWT 客户端上传文件并在服务器端读取其内容 我可以将其作为字符串发送回客户端 但是 我有 GWT FormPanel与操作
我在 Plone 4.3.9 中创建了一个自定义类型的灵巧性,称为 PersonalPage,必须只允许在特定文件夹中使用 成员文件夹/用户文件夹 . 在他的 FTI 中,默认情况下 False .
在新(更新)版本的应用程序中更改小部件布局的最佳做法是什么?当新版本提供更新、更好的小部件时,如何处理现有小部件? 最佳答案 我认为您必须向用户显示一个弹出窗口,说明“此版本中的新功能”并要求他们重新
在我的应用程序中,我使用支持 View 寻呼机和 PagerTabStrip。进入查看寻呼机我有一些 fragment ,进入其中一个我正在使用支持卡片 View 。运行应用程序后,所有卡片 View
我有以下布局文件。基本上我有谷歌地图,在左上角我有一个 TextView,我需要在其中每 15 秒保持一次计数器以刷新 map 。布局很好。
我使用如下结构: HashMap > > OverallMap 如果我这样做: OverallMap . clear ( ) clear() 丢弃的所有内容(HashMap 对象、Integer 对
我在数据库中有 1000 张图像。在页面加载时,我随机显示 60 张图片,当用户滚动时,我通过 AJAX 请求添加 20 张图片。 第一种方法 我所做的是将所有图像加载到一个容器中,然后隐藏所有图像并
我正在使用 woocommerce 创建一个网上商店。 我想在每个产品上添加一个包含产品信息的表格,例如颜色、交货时间等等。 但是当我添加这张表时。本产品消失后的所有内容。 我的表的代码: td {
This question already has an answer here: What does an empty value for the CSS property content do?
因此,我正在与我的 friend 一起为 Google Chrome 开发一个扩展程序,对于大多数功能(即日历、设置等),我们打开一个模式,这样我们就不必重定向到另一个页面。当您在内容之外单击时,我们
我将可变高度的 CSS 框设置为在更大的 div 中向左浮动。现在我想添加一个标题,其中文本在框的左侧垂直显示(旋转 90 度),如下面的链接所示(抱歉还不能发布图片)。 http://imagesh
相关页面位于 www.codykrauskopf.com/circus 如果您查看我页面的右侧,在半透明容器和浏览器窗口边缘之间有一个间隙。我看了看,出于某种原因,wrap、main、content
我是一名优秀的程序员,十分优秀!