[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