SelectNext(screen.ActiveControl, True, True);

 

Разместите приведенный код в обработчике одного из собитий. SelectNext - защищенный метод TWinControl со следующим прототипом:

 

Code:

procedure SelectNext(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);

  

Так как форма также является потомком TWinControl, то она имеет доступ к защищенным методам.

 

Взято с https://delphiworld.narod.ru

 

В обработчике события onKeyDown попробуй поставить:

Code:

Key:=0;

 

 

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru

 

 

 

 

ssShift - это константа применяемая в типе TShiftState (являущемся типом Set) а не логическая, надо примерно так:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

{©Drkb v.3(2007): www.drkb.ru,

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

begin

if (key=$97) and (ssShift in Shift) then

begin

{do something}

end;

end;

 

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru