source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/EwbDisableFocusControl.pas@ 1561

Last change on this file since 1561 was 541, checked in by Kevin Toppenberg, 15 years ago

TMG Ver 1.1 Added HTML Support, better demographics editing

File size: 579 bytes
Line 
1(*
2
3This unit's purpose is to disable the FocusControl even if Enable_AutoFocusControl
4is defined in EWB.inc.
5
6EwbControl.FocusControl is activated in the initialization section of the
7EmbeddedWB unit.
8To disable it, put this unit before the first form
9unit in your DPR 'uses' clause.
10
11Example:
12
13program Project1;
14
15uses
16 //..
17 EWBDisableFocusControl,
18 Forms,
19 Unit1 in 'Unit1.pas' {Form1};
20 //..
21
22*)
23
24unit EWBDisableFocusControl;
25
26interface
27
28uses
29 EwbFocusControl;
30
31implementation
32
33initialization
34 EWBEnableFocusControl := False;
35
36end.
Note: See TracBrowser for help on using the repository browser.