Содержание материала

 

Code:

private

{©Drkb v.3, ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

 

Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;

.....

procedure TForm1.CMDialogKey(var Msg: TWMKey);

begin

//здесь Ваш код

Msg.Result := 0

end;

 

 На уровне формы клавиша tab обычно обрабатывается Windows. В примере создается обработчик события CM_Dialog для перехвата Dialog keys

 

Code:

type

TForm1 = class(TForm)

private

   procedure CMDialogKey( var msg: TCMDialogKey );

   message CM_DIALOGKEY;

end;

 

var

Form1: TForm1;

 

implementation

{$R *.DFM}

 

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);

begin

if msg.Charcode <> VK_TAB then

   inherited;

end;

 

procedure TForm1.FormKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

if Key = VK_TAB then

   Form1.Caption := 'Tab Key Down!';

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить