| Class TQuestion (unit TQuestn) |
TComponent
| Constructors |
constructor Create(Owner: TComponent);| Functions |
destructor Destroy;
procedure CalcArea;
procedure OnButtonDestroy( Sender: TObject );
procedure PaintButton;
procedure SetEnabled( Val: Boolean );
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;