请教高手如何获得句柄?

yanghoyu 2004-04-03 12:33:30

环境: 有一个Form1,里面有三个TEdit生成的Edit1,Edit2,Edit3而且都是没有caption的
要求: 编写另外一个程序,能分别获得Form1里面三个Edit的句柄

...全文

125 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

nyf1220 2004-04-12

打赏
举报

谢谢 xzhifei(星级饭桶·飞) ，你的方法基本可以~
to apololi(杭州小子) ，如果是外部程序的edit，它的tag我就无法知道，怎么用你的方法？

menggirl 2004-04-12

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
FoundWindow: HWND;
WindowText: array[0..255] of char;
begin
{find a TEdit child window}
FoundWindow:=FindWindowEx(Form1.Handle, 0, 'TEdit',nil);

{get its text...}
GetWindowText(FoundWindow, WindowText, 255);

{...and display it}
Label1.Caption:='FindWindowEx found window handle '+IntToStr(FoundWindow)+
': '+WindowText;

end;

apololi 2004-04-12

打赏
举报

你们想那么复杂干什么,要区分3个edit控件很简单.用edit的tag属性啊.譬如Edit1.tag := 1;
Edit2.tag := 2;Edit3.tag := 3

for i := 1 to Form.ComponentCount do begin
if (Form.Components[i] is TEdit) begin
case (Form.Component[i] as TEdit).tag of
1: Edit1
2: Edit2
3: Edit3
end;
end;
end;

这样就区分了3个Edit控件,我目前想到的比较简单的方法,如果各位有更好的方法,跟着贴啊

xzhifei 2004-04-12

打赏
举报

如果你知道每个控件的大约位置，就可以使用ChildWindowFromPointEx：
用ChildWindowFromPointEx可以得到，hParent是窗体句柄，Point(x, y) 是控件的大约
位置，CWP_ALL表示所有控件，也可以制定只取某类控件，函数返回值为控件句柄。
ChildWindowFromPointEx(hParent, Point(x, y) , CWP_ALL);
下面是我写的一个获取别的程序edit的内容的例子
procedure TForm1.Button1Click(Sender: TObject);
var
hParent, hEdit: HWND;
u: pchar;
begin
try
hParent := FindWindow(nil, 'fromB的标题');
if hParent = 0 then
showmessage('窗口没有找到！')
else
begin
hEdit := ChildWindowFromPointEx(hParent, Point(10, 10) //大约位置
, CWP_ALL);
if hEdit = 0 then
showmessage('Edit没有找到！')
else
begin
U := StrAlloc(250);
SendMessage(hEdit, WM_GETTEXT, 249, Integer(U));
edit1.Text := Strpas(u);
end;
end;
except
end;
end;

qiume 2004-04-12

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.Name + '的句柄 ' + IntToStr(Edit1.Handle));
ShowMessage(Edit2.Name + '的句柄 ' + IntToStr(Edit1.Handle));
ShowMessage(Edit3.Name + '的句柄 ' + IntToStr(Edit1.Handle));
end;

end.

qiume 2004-04-12