[Lazarus] Form Height with Windows XP Themes

[faber]

2010/4/7 Kjow <antispammoni at gmail.com>:
>> As result you don't need mbNone. Just use [] to indicate that no button is
>> pressed.

> 2010/4/7 Martin <lazarus at mfriebe.de>:
>> Create a set

Other question... how to pass/read [] "vaule" to/in a function?

e.g.

function ButtonPress(Button: TMouseButton): string;
begin
  case Button of
   []: Result:='Nothing Pressed'; //e.g.
   mbLeft: Result:='mbLeft';
   mbRight: Result:='mbRight';
   mbMiddle: Result:='mbMiddle';
  end;
end;

and somewhere:

showmessage(ButtonPress([])); // [] -> e.g.

Thanks,
Kjow