Program TemplateWindow; var i, w: integer; c: TComponent; r: TWinControl; p: TPanel; f: TForm; al: TAlign;
Begin c:= nil; for i:= 0 to Application.MainForm.ComponentCount-1 do begin c:= Application.MainForm.Components[i]; if (c.Name='PanelTemp') then Break; end;
P.Align:= alClient; P.Parent:= F; F.Visible := true; while F.Visible do begin Application.HandleMessage; end; p.Align:= al; p.Parent:= r; case al of alRight: p.Left:= Application.MainForm.Width; alLeft: p.Left:= -Application.MainForm.Width; end; F.Free;
c:= nil; for i:= 0 to Application.MainForm.ComponentCount-1 do begin c:= Application.MainForm.Components[i]; if (c.Name='PanelTemp') then Break; end; if (c=nil) or (c.Name<>'PanelTemp') then exit;