[Lazarus] TMouseButton

[Kjow]

2010/4/7 Vincent Snijders <vsnijders at vodafonevast.nl>:
> What about:
>
> type
>  TMouseButtons = set of TMouseButton; // if it doesn't exist yet
>
> var
>  MouseButtonPressed: TMouseButtons;
>
>
>> MouseButtonPressed:=MouseButtonPressed + Button; //OnMouseDown
>
> Your mbNone becomes:
>> MouseButtonPressed:=[];
>
> Vincent

Thank you Vincent,

I tried, but

MouseButtonPressed:=[];

returns:

Error: Incompatible types: got "Empty Set" expected "TMouseButton"


and I don't know how to add Button to MouseButtonPressed...



Thanks,
Kjow