向别的窗体控件发字符串的有关问题.
向别的窗体控件发字符串的问题.急啊!
AU3可以用
ControlSend
delphi 什么函数可以啊.
------解决方案--------------------
const
CW = '题目 ';//窗口标题
EW = 'Edit1 ';//Edit控件的Text
BW = 'Button1 ';//按钮标题
var
HW,HE,HB : HWND;
begin
HW := FindWindow(nil,PChar(CW));//查到窗体句柄
if HW <> 0 then
begin
HE := FindWindowEx(HW,0,PChar( 'TEdit '),PChar(EW));//Edit的句柄
HB := FindWindowEx(HW,0,PChar( 'TButton '),PChar(BW));//按钮句柄
//SetWindowText(HE,PChar( '可以了 '));
SendMessage(HE,WM_SetText,0,integer(PChar( '可以了 ')));
SendMessage(HB,BM_Click,0,0);
end;
end;
------解决方案--------------------
你说的ID是什么?句柄?如果你知道句柄了,那直接用SendMessage()就行了。
------解决方案--------------------
师傅:
EW = 'Edit1 ';//Edit控件的Text 我没有说这是个“名”....仅仅是这个Edit区别于其他Edit的文本而已....也就是说:它是这个Edit上已存在的内容....
AU3可以用
ControlSend
delphi 什么函数可以啊.
------解决方案--------------------
const
CW = '题目 ';//窗口标题
EW = 'Edit1 ';//Edit控件的Text
BW = 'Button1 ';//按钮标题
var
HW,HE,HB : HWND;
begin
HW := FindWindow(nil,PChar(CW));//查到窗体句柄
if HW <> 0 then
begin
HE := FindWindowEx(HW,0,PChar( 'TEdit '),PChar(EW));//Edit的句柄
HB := FindWindowEx(HW,0,PChar( 'TButton '),PChar(BW));//按钮句柄
//SetWindowText(HE,PChar( '可以了 '));
SendMessage(HE,WM_SetText,0,integer(PChar( '可以了 ')));
SendMessage(HB,BM_Click,0,0);
end;
end;
------解决方案--------------------
你说的ID是什么?句柄?如果你知道句柄了,那直接用SendMessage()就行了。
------解决方案--------------------
师傅:
EW = 'Edit1 ';//Edit控件的Text 我没有说这是个“名”....仅仅是这个Edit区别于其他Edit的文本而已....也就是说:它是这个Edit上已存在的内容....