Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c