Context Navigation

Utils.pas

Last change on this file was 11, checked in by chronos, 2 months ago
Modified: Updated Common package. Fixed: Wrong return address from CALL instruction.
File size: 299 bytes

Line
1	unit Utils;
2
3	interface
4
5	uses
6	Classes, SysUtils, Forms, Controls;
7
8	procedure DockForm(Form: TForm; DockSite: TWinControl);
9
10
11	implementation
12
13	procedure DockForm(Form: TForm; DockSite: TWinControl);
14	begin
15	Form.ManualDock(DockSite, nil, alClient);
16	Form.Align := alClient;
17	Form.Show;
18	end;
19
20	end.
21

Note: See TracBrowser for help on using the repository browser.