Advertisement
Guest User

Untitled

a guest
Jul 4th, 2015
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. type
  2. TGroupPanel = class(TWinControl);
  3.  
  4. TForm1 = class(TForm)
  5. Group: TGroupPanel;
  6. procedure FormCreate(Sender: TObject);
  7. private
  8. Panel:TPanel;
  9. end;
  10.  
  11. procedure TForm1.FormCreate(Sender: TObject);
  12. begin
  13. Panel:=TPanel.Create(Group);
  14. Panel.Parent:=Group;
  15. Panel.Align:=alClient;
  16. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement