Текущий архив: 2004.04.18;
Скачать: CL | DM;
Вниз
при выборе RadioGrup и нажатии Enter происходило действие Найти похожие ветки
← →
ceval (2004-03-31 23:33) [0]Добрый вечер всем!
Подскажите как сделать правельно ?!
Хочу сделать что бы при выборе одной из кнопок
RadioGrup и нажатии Enter происходило действие
наприм:
О .....
О......
О Отменить - при выборе "Отменить" и при нажатии Enter
закрывалась форма
написал код :
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGrup.Items.Add("..........";
RadioGrup.Items.Add("..........");
RadioGrup.Items.Add("Отменить");
end;
..............
procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Form1.KeyPreview:=true;
if (RadioGrup.ItemIndex=2) and (key=VK_Return) then form.Close;
Нету никакой реакции.В чем дело подскажите пажалуста!?
Большое спасибо всем за помощь!
← →
PKT (2004-04-01 03:31) [1]Form1.KeyPreview:=true;
выставьте в Инспекторе объектов
или, хотя бы, в OnCreate.
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.023 c
