мысли вслух про TAction

[Attid]

запретил на гриде ввод в некоторые колонки ввод с клавиатуры

Код: Выделить всё

procedure TfmDesk.gMainKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((gMain.Col in [1,3,4,5]) ) then //      ctrl\alt\*
  begin
    if (Key = 32) then Key := 0; 
    if (Key > 40)  then Key := 0; 
  end;    

окозалось что перестали работать акшены по хоткеям
не очень понимаю почему они получают коды уже после того как получают контролы на форме , но из ситуации я выкртился усложняя процедуру отбора кодов клавишь, просто решил высказаться . .

ЗЫ делал все под линуксом, может под вендой по другому

[Yogrik]

ИМХО для запрета ввода лучше использовать KeyPress

[GrayEddy]

Вообще-то, по номерам колонок не стоит ориентироваться. Лучше по именам, ибо юзер может переставить 1-ую и 2-ую колонку.

[shade]

не очень понимаю почему они получают коды уже после того как получают контролы на форме

TForm.KeyPreview не пробовал устанавливать в true?

[Attid]

shade

TForm.KeyPreview не пробовал устанавливать в true?

пробывал не помогает а что должно было произойти ?

GrayEddy
у них мышки нет, так что не смогут по номерам бытрее орентироваться, а возможность смены столбцов я им не дам.


Yogrik
с KeyPress таже катовася если запретить в эти столбцы все то и акшены не будут работать, а основной код уже был в этой процедуре поэтому там и дописал запреты.

[Yogrik]

Странно, набросал тестовый примерчик у меня работало(когда отвечал первый раз).....
Надо будет еще раз попробовать, когда время будет