[Lazarus] TMouseButton

Kjow antispammoni at gmail.com
Wed Apr 7 16:51:50 CEST 2010


2010/4/7 Martin <lazarus at mfriebe.de>:
> 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);

Thank you!

Now I understood that for 'nothing' I need to do:

if Button=[] then Result:='nothing';

And if I want a combination I need to provide any case

e.g. if Buttons = [mbLeft,mbRight] then xxx

Thank you very much to all,
you are great :)

Best Regards,
Kjow




More information about the Lazarus mailing list