On 07/04/2010 15:35, Kjow wrote:
2010/4/7 Kjow<[email protected]>:
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;
Case will not work.
but
mbleft, or mbLeft + any other button
if mbLeft in Buttons then xxx;
for only mbLeft, no other button:
if Buttons = [mbLeft] then xxx;
to add / remove ...
Buttons := Buttons + mbLeft;
Include(Buttons, mbLeft);
Buttons := Buttons - mbLeft;
Exclude(Buttons, mbLeft);
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
