Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизПереход по элементам формы по ENTER Найти похожие ветки
← →
Скалли (2002-02-08 13:27) [0]В одной программе пользовалась такой процедурой:
procedure Te_Oper.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ACtrl: TWinControl;
begin
if key = 13 then
begin
ACtrl := ActiveControl;
if ACtrl is TCustomMemo then exit;
repeat
ACtrl:= FindNextControl(ACtrl,true,true,false);
until (ACtrl is TCustomEdit) or
(ACtrl is TCustomComboBox) or
(ACtrl is TCustomListBox) or
(ACtrl is TCustomCheckBox) or
(ACtrl is TRadioButton);
ACtrl.SetFocus ;
end;
end;
Все отлично работало, по ENTER все переходило и переходит без проблем. Как только вставляю то же самое в другую программу - не работает.
Может, кто подскажет в чем дело? Умаялась уже совсем :-(
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c