[Lazarus] New feature - View same source in multiple Windows

Martin lazarus at mfriebe.de
Wed Apr 7 20:41:07 CEST 2010


2010/4/7 Kjow <antispammoni at gmail.com>:
> 2010/4/7 Kjow <antispammoni at 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




More information about the Lazarus mailing list