class TScheme : public TCustomControl
{
typedef TCustomControl inherited;
protected:
void __fastcall WMLButtonDown(Messages::TWMMouse &Message)
{
ShowMessage("OK");
}
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER( WM_LBUTTONDOWN ,TWMMouse, WMLButtonDown );
END_MESSAGE_MAP(TScheme)
public:
__fastcall virtual TScheme( Classes::TComponent* AOwner ) : inherited( AOwner )
{
}