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;