source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOMAction.pas@ 1742

Last change on this file since 1742 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

File size: 1.2 KB
RevLine 
[459]1unit fOMAction;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 fAutoSz, rOrders;
8
9
10type
11 TCallOnExit = procedure;
12
13 TfrmOMAction = class(TfrmAutoSz)
14 procedure FormDestroy(Sender: TObject);
15 private
16 FCallOnExit: TCallOnExit;
17 FOrderDialog: Integer;
18 FRefNum: Integer;
19 FAbortAction: boolean;
20 protected
21 procedure InitDialog; virtual;
22 public
23 property CallOnExit: TCallOnExit read FCallOnExit write FCallOnExit;
24 property OrderDialog: Integer read FOrderDialog write FOrderDialog;
25 property RefNum: Integer read FRefNum write FRefNum;
26 property AbortAction: boolean read FAbortAction write FAbortAction;
27 end;
28
29
30var
31 frmOMAction: TfrmOMAction;
32
33implementation
34
35{$R *.DFM}
36
37uses
38 uConst;
39
40procedure TfrmOMAction.FormDestroy(Sender: TObject);
41begin
42 if Assigned(FCallOnExit) then FCallOnExit;
43 if (Owner <> nil) and (Owner is TWinControl)
44 then SendMessage(TWinControl(Owner).Handle, UM_DESTROY, FRefNum, 0);
45 inherited;
46end;
47
48procedure TfrmOMAction.InitDialog;
49begin
50 FAbortAction := False;
51end;
52
53end.
Note: See TracBrowser for help on using the repository browser.