2010/4/7 Vincent Snijders <[email protected]>: > 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 -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
