Определитесь
Цитата:
|
...код общего для всех едитов обработчика...
|
или
Цитата:
|
...не все едиты будут обрабатываться таким образом...
|
...
вот это смущает
Код:
if (((key >= #192) and (key <= #255)) then begin end...
когда можно более конкретно и понятно
Код:
case Key of
'А'..'Я','а'..'я','Ё','ё': begin end;
chr(VK_BACK): exit;
...
else Key:= #0;
end;
насчёт
Цитата:
|
... у меня вот изначально не все едиты на форме активны, при заполнении некоторых из них опять же onChange планировалось активировать следующую группу едитов...
|
можно так
Код:
with (FindComponent('GroupBox' + IntToStr((Sender as TEdit).Tag)) as TGroupBox) do
for i := 0 to ControlCount - 1 do (Controls[i] as TEdit).Enabled:= true; где в свойстве .tag sender`а заранее записан порядковый номер groupbox`а с группой следующих едитов.