Class TQuestion (unit TQuestn)
Inherits from
TComponent
Constructors
constructor Create(Owner: TComponent);
Functions
destructor Destroy;
procedure CalcArea;
procedure OnButtonDestroy( Sender: TObject );
procedure PaintButton;
procedure SetEnabled( Val: Boolean );
case
procedure WinProc(var Message: TMessage);
Properties
property Shape : Tshapes
Events
event Onclick : Tnotifyevent
Variables
DefWinProc : TFarProc;
DefWinProcInstance : Pointer;
FOnclick : tnotifyevent;
FOnFormDestroy : TNotifyEvent;
FShape : Tshapes;
Pushed : Boolean;
Rect : TRect;
Constructors
constructor Create(Owner: TComponent);
Functions
destructor Destroy;
procedure CalcArea;
procedure OnButtonDestroy( Sender: TObject );
procedure PaintButton;
procedure SetEnabled( Val: Boolean );
case
procedure WinProc(var Message: TMessage);
Properties
property Shape : Tshapes
Events
event Onclick : Tnotifyevent
Variables
DefWinProc : TFarProc;
DefWinProcInstance : Pointer;
FOnclick : tnotifyevent;
FOnFormDestroy : TNotifyEvent;
FShape : Tshapes;
Pushed : Boolean;
Rect : TRect;