home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / ClassEng / Listing4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-28  |  179 b   |  9 lines
  1. function TWinControl.GetHandle: HWnd;
  2. begin
  3.   if FHandle = 0 then
  4.   begin
  5.     if Parent <> nil then Parent.HandleNeeded;
  6.     CreateHandle;
  7.   end;
  8.   Result := FHandle;
  9. end;