TCompoBox - KeyPress
Original Reporter info from Mantis: kogs
-
Reporter name: kogs
Original Reporter info from Mantis: kogs
- Reporter name: kogs
Description:
{-------------------------------------------------------------------------------
procedure cbxAssKeyPress
-------------------------------------------------------------------------------}
procedure TfrmMain.cbxAssKeyPress(Sender: TObject; var Key: char);
begin
// ShowMessage('0 -' + IntToStr(Integer(key)));
if key = #13 then
if VK_SHIFT <> 0 then
begin
// ShowMessage('1');
SelectNext(Sender as TWinControl, False, True);
end
else
begin
// ShowMessage('2');
SelectNext(Sender as TWinControl, True, True);
key := #0;
end;
end;
end;
?
Mantis conversion info:
- Mantis ID: 25760
- OS: X
- OS Build: 9.1
- Platform: Mac
- Version: 2.3 (SVN)