Catch a 'Tab Character' key stroke inside a TEdit

~~~~~~~~~~~~~~~~~~~~~~~~~
//interface private
procedure CMDialogKey(Var Msg: TWMKey) ;
message CM_DIALOGKEY;
...
//implementation
procedure TForma.CMDialogKey(Var Msg: TWMKEY) ;
begin
   if (ActiveControl is TEdit) and
(Msg.Charcode = VK_TAB) then
   begin
    ShowMessage('TAB key pressed?') ;
   end;
   inherited;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Get paper formats for the default printer
« How to convert WMF to BMP

• 1
• 2
• 3
• 4
• 5