>I've already tried, "if (key = VK_SHIFT) and (VK_F1) then", >but this doesn't work for the Form or the Listview either. Any ideas?
procedure TForm1.ListView1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if (key=VK_F1) and
((Windows.GetKeyState(VK_SHIFT) and $80)>0) then
ShowMessage('Bingo!')
end;
-malcolm
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
