OnKeyAction ALT key not detected

Hi,

I just noticed that when you place an ELV on a FRM and assign an ELV.KeyAction the ALT key isnt detected, Shift en CTRL works fine.

`procedure TForm1.EasyListview1KeyAction(Sender: TCustomEasyListview; var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
begin
if ssALT in Shift then ShowMessage ('ELV ssAlt') <-- Not detected
else
if ssCTRL in Shift then ShowMessage ('ELV ssCtrl')
else
if ssShift in Shift then ShowMessage ('ELV ssShift')
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
{
if ssALT in Shift then ShowMessage ('FRM ssAlt') <-- Detected / KeyPreview=True
else
if ssCTRL in Shift then ShowMessage ('FRM ssCtrl')
else
if ssShift in Shift then ShowMessage ('FRM ssShift')
}
end;
`

[romankassebaum]

I added a changeset. Please check.