P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么控制它们！？？谢了先！！
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
FindChildControl
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
amli谢了先，但是我要控制的是其它程序的ToolBar。有没有类似的API呢？？
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
循環調用EnumChildWindows
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
function aaa(handle, lparam: Integer): boolean;<br>begin<br> showmessage(inttostr(handle));<br> result := true;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> enumchildwindows(toolbar1.handle, @aaa, 0);<br>end;<br><br>没有获得一个句柄，上面的代码有错吗？？<br>
D
dirk
Unregistered / Unconfirmed
GUEST, unregistred user!
ToolBar1.Buttons 不就可以访问每个Button了嘛。<br><br>另外ToolButton是light控件，没有句柄的（就像TLabel）。
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
ToolButton没有句柄？？？哪怎么控制它们？？？我是说其它程序的ToolButton。
D
dirk
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵呵，那没看清题目，我说的是delphi中的TToolButton组件是没有句柄的，楼下继续。
X
xuxiaohan
Unregistered / Unconfirmed
GUEST, unregistred user!
完全对，<br>delphi中的TToolButton组件没有handle，谁不相信？自己试试看，<br>怎么得到ToolBar上按钮的句柄？<br>答案的：[blue]没有[/blue]
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
//應該明白了吧<br>function EnumFun(hWnd : Thandle; lParam : LongInt): BOOL; Stdcall;<br>var<br> ClassName : array[0..1024] of Char;<br> Control : TControl;<br>begin<br> GetClassName(hWnd, ClassName, 1024);<br> Control := FindControl(hWnd);<br> if Control is TToolBar then ShowMessage(Control.Name);<br> Result := True;//EnumChildWindows(hWnd, @EnumFun, lParam);<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> EnumChildWindows(Handle, @EnumFun, 0);<br>end;
X
xuxiaohan
Unregistered / Unconfirmed
GUEST, unregistred user!
有人答非所问。<br>再补充一点，Windows系统的toolbar （ToolbarWindow32）的按钮也的没有handle的。。。。<br>其它程序的Toolbar我就不清楚（你的其它程序是用什么写的？）
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
VC寫的toolbar可用 GetClassName定<br>當前處理代碼當別論.<br>參考Win32s API Reference
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
to amli<br> 那段代码也不能showmessage出toolbutton的name。<br><br>to xuxiaohan<br> toolbutton没有句柄就没有其它的方法控制它们了吗？？？
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
//Handle這裡的句柄是Form的<br>EnumChildWindows(Handle, @EnumFun, 0);<br>
A
amli
Unregistered / Unconfirmed
GUEST, unregistred user!
//顯示按鈕名字<br>function EnumFun(hWnd : Thandle; lParam : LongInt): BOOL; Stdcall;<br>var<br> //ClassName : array[0..1024] of Char;<br> Control : TControl;<br> i : Integer;<br>begin<br> //GetClassName(hWnd, ClassName, 1024);<br> Control := FindControl(hWnd);<br> if Control is TToolBar then<br> with Control as TToolBar do<br> for i := 0 to ButtonCount -1 do<br> ShowMessage(Buttons.Name);<br> Result := True;<br>end;
X
xuxiaohan
Unregistered / Unconfirmed
GUEST, unregistred user!
amli：<br> 如果是“其它程序”是delphi写的，你的代码可以。<br><br><br>
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
“其它程序”是VC等其它写的怎么办呢？
P
pgjeffrey
Unregistered / Unconfirmed
GUEST, unregistred user!
收工啦！