home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap28 / object4 / hierdlg.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  898b  |  49 lines
  1. unit Hierdlg;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: OBJECT4 }
  5.  
  6. interface
  7.  
  8. uses
  9.   SysUtils, WinTypes, WinProcs,
  10.   Messages, Classes, Graphics,
  11.   Controls, Forms, Dialogs,
  12.   StdCtrls, Buttons, ClassDef;
  13.  
  14. type
  15.   THierarchyDlg = class(TForm)
  16.     ListBox1: TListBox;
  17.     BitBtn1: TBitBtn;
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.     procedure Run(Widget: TWidget; AColor: TColor);
  23.   end;
  24.  
  25. var
  26.   HierarchyDlg: THierarchyDlg;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure THierarchyDlg.Run(Widget: TWidget; AColor: TColor);
  33. var
  34.   AClass: TClass;
  35.   S: string;
  36. begin
  37.   ListBox1.Clear;
  38.   ListBox1.Color := AColor;
  39.   S := ClassName;
  40.   AClass := Widget.ClassParent;
  41.   while AClass <> nil do begin
  42.     ListBox1.Items.Add(AClass.ClassName);
  43.     AClass := AClass.ClassParent;
  44.   end;
  45.   ShowModal;
  46. end;
  47.  
  48. end.
  49.