请问在delphi中怎样取到一个控件的句柄，有什么函数吗？在线等，解决就给分！

具体举个例子就是：
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Edit1.Handle));
end;

解决方案 »

  1.   

    有类名或是控件名就可以取到用findwindow(LPCTSTR lpClassName,LPCTSTR lpWindowName);
      

  2.   

    没有窗口是不能得到的，看看函数的名字啊，FINDWINDOW找窗口啊。
      

  3.   

    可是我用到readfile时要求有句柄
    请问哪位大哥能给我解释一下readfile的用法
      

  4.   

    dingfeng1977(dingfeng)
    请给解释细一点
      

  5.   

    dingfeng1977(dingfeng)
    请给解释细一点
      

  6.   

    API函数
    Handle CreateMailslot(LPCTSTR lpName,DWORD nMaxMessageSize,DWORD lReadTimeout,LPSECURITY_ATTRIBUTES lpSecurityAttibutes);
      

  7.   

    如果是个TWinControl,就是Control.Handle;
    如果是个TGraphicControl,就是Control.Parent.Handle;
    如果只是TComponent,不是TControl,就用Form.Handle吧.
      

  8.   

    现在我的问题是这样的
    我用readfile读内存中的一段邮件槽
    头4位为字符型 后头是二进制
    可是用readfile总是参数不对
    可恼
      

  9.   

    只有从Wincontrol继承的控件才有句柄，向 Label,Image等没有句柄的
      

  10.   

    self.handle
    怎么使
    给点例子
      

  11.   

    self.handle隻是返回窗體的句柄
    而不是控件的句柄.
      

  12.   

    var
    wnd:HWnd;
    sName:array[0..255] of Char;
    begin
    wnd:=GetWindow(self.handle,GW_CHILD);
    while wnd<>0  do 
    begin
    if GetClassName(wnd,sName,Sizeof(sName)>0 then
    begin
    Memo1.lines.add(String(sName));
    end;
    //wnd就是控件的句柄
    wnd:=GetWindow(wnd,GW_HWNDNEXT);
    end;