Zitat von Kjow <antispamm...@gmail.com>:
2010/4/7 Kjow <antispamm...@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;
The mouse buttons are combined in TShiftState.
For example: OnMouseDown gets the Shift parameter, which contains the
pressed mouse buttons and the pressed modifier keys.
There is already a function to convert TShiftState into a string in
unit LCLProc:
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
writeln('TMainForm.FormMouseDown ',dbgs(Shift));
// when only the right mouse button is pressed
// it will write: [ssRight]
end;
Mattias
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus