1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

V) EnumChildWindows 

Syntax:} 

EnumerateChildWindows(hWnd: HWND;{a handle to a top-level window} 
                      lParam: LPARAM): {a 32-bit application-defined value} 
                      BOOL; stdcall; {returns TRUE or FALSE} 


{ Description : 

 The EnumChildWindows function enumerates the child windows that belong to the 
 specified parent window by passing the handle of each child window, in turn, 
 to an application-defined callback function. 
 EnumChildWindows continues until the last child window is enumerated or 
 the callback function returns False. 

 Die EnumChildWindows Funktion zählt alle zu einem Fenster gehörenden Child-Fenster 
 auf und übergibt jeweils das Handle einer Callback Funktion. 
 EnumChildWindows endet, wenn das letzte Child-Fenster aufgezählt wurde 
 oder die Callback-Funktion False zurückgibt. 

 Here is an example that lists the controls on a TPrintDialog 
 Hier ein Beispiel, um alle Controls auf eines TPrintDialogs anzuzeigen 

} 

function EnumProc(wnd: HWND; Lines: TStrings): BOOL; stdcall; 
var 
  buf, Caption: array[0..255] of char; 
begin 
  Result := True; 
  GetClassName(wnd, buf, SizeOf(buf) - 1); 
  SendMessage(wnd, WM_GETTEXT, 256, Integer(@Caption)); 
  Lines.Add(Format('ID: %d, ClassName: %s, Caption: %s', 
           [GetDlgCtrlID(wnd), buf, Caption])); 
end; 

procedure TForm1.PrintDialog1Show(Sender: TObject); 
begin 
  Memo1.Clear; 
  EnumChildWindows(printdialog1.Handle, @EnumProc, Integer(memo1.Lines)); 
end;