知道控件的Handle值,怎么获知此控件的类型,并根据相应的控件类设置相应的属性值

知道控件的Handle值,怎么获知此控件的类型,并根据相应的控件类设置相应的属性值?请高手们赐教!!! 问题点数：50、回复次数：5Top

1 楼chinaandys（降龙十八炒&&蛋炒饭）回复于 2005-02-02 14:23:04 得分 0

upTop

2 楼ahjoe（强哥）回复于 2005-02-02 17:22:00 得分 20

var  
      WindowList:   TList;  
   
  function   GetWindows(  
          handle:   HWND; //   handle   to   parent   window  
          info:   LPARAM   //   application-defined   value  
        ):   Boolean;   stdcall;  
  begin       {}  
      Result   :=   True;  
      WindowList.Add(Pointer(handle));  
  end;  
   
  function   GetWinClass(whandle:   HWnd):   string;  
  var  
      i:   integer;  
      Dest:   array   [0..80]   of   char;  
  begin  
      Result   :=   '';  
      WindowList   :=   TList.Create();  
      EnumWindows(@GetWindows,   0);  
      for   i   :=   0   to   WindowList.Count   -   1   do  
      if   HWnd(WindowList[i])   =   whandle   then  
      begin  
          if   GetClassName(Hwnd(WindowList[i]),   Dest,   Sizeof(Dest)   -   1)   >   0   then  
          begin  
              Result   :=   Dest;  
              Break;  
          end;  
      end;  
      WindowList.Free();  
  end;  
   
  Top

3 楼ahjoe（强哥）回复于 2005-02-02 17:23:35 得分 10

这样即可  
  function   GetWinClass(whandle:   HWnd):   string;  
  var  
      i:   integer;  
      Dest:   array   [0..80]   of   char;  
  begin  
      Result   :=   '';  
      if   GetClassName(whandle,   Dest,   Sizeof(Dest)   -   1)   >   0   then  
      begin  
          Result   :=   Dest;  
          Break;  
      end;  
  end;  
   
  Top

4 楼sdhxdjw（阿伟）回复于 2005-02-03 10:20:51 得分 0

两位只回答了问题的一半！还有如何设置相应控件的属性值呢？Top

5 楼wfhlxl（光明正大地偷......学）回复于 2005-02-03 12:24:16 得分 20

windows.GetClassName(   )  
  设置相应控件所有的属性值，is   very   difficult,but   you   can   use   api   set   visilbe,   caption   ,border,   enabled   property.Top

相关问题

• 控件
• 属性
• windowlist
• whandle
• 设置相应
• dest
• getclassname
• handle
• hwnd
• begin

• 帖主：sdhxdjw
• ahjoe
• ahjoe
• wfhlxl

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载