窗口回调函数？

function EnumChildWindowsPro(Handle:THandle):boolean;stdcall;
var
    TheClassName:array[0..MAX_PATH] of char;
    ConText:array[0..MAX_PATH] of char
    strClassName,strControlName:String;
begin
    Result:=True;
    GetClassName(Handle,TheClassName,MAX_PATH);
    GetWindowText(Handle,ConText,MAX_PATH);
    strClassName:=String(TheClassName);
    strControlName:=String(ConText);
end;
procedure FindControl(Parent:HWND;ClassName);
begin
    EnumChildWindows(Parent,@EnumChildWindowsPro,0);
end;


[ 本帖最后由 lcb139 于 2009-8-28 21:54 编辑 ]

回调函数：就是你写一个子程序，然后在调用语句里写上这个指针，由系统自行调用