2010/4/7 Kjow <antispamm...@gmail.com>: > 2010/4/7 Kjow <antispamm...@gmail.com>: >> Error: Incompatible types: got "Empty Set" expected "TMouseButton" > > Whops, I've mistyped, it works! > But how to read the values from a function? > > e.g. > > function ButtonPress(Button: TMouseButtons): string; > begin > case Button of > ...: Result:= 'you pressed' ; > end; > end;
Ok, today is not my day :) I'm sorry for this flooding :( with if mbLeft in Button then Result:='left'; I can manage the buttons, but what for nothing? e.g. if [] in Button then Result:='nothing'; Thanks, Kjow -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
