1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
unit WizardInterface;
interface
uses
StdCtrls, TntStdCtrls;
type
IWizardInterface = Interface
function GetNextBtn: TButton;
function GetBackBtn: TButton;
function GetDetailsBtn: TButton;
function GetDetailsActivated: Boolean;
procedure SetDetailsActivated(Activated: Boolean);
function GetOperationCanceled: Boolean;
procedure SetOperationCanceled(Canceled: Boolean);
property NextBtn: TButton read GetNextBtn;
property BackBtn: TButton read GetBackBtn;
property DetailsBtn: TButton read GetDetailsBtn;
property DetailsActivated: Boolean read GetDetailsActivated write SetDetailsActivated;
property OperationCanceled: Boolean read GetOperationCanceled write SetOperationCanceled;
end;
implementation
end.
|
