27.04.2008, 17:12
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами:
9655526
Репутация:
1821
|
|
А так:
Код:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//Отлавливаем нажатие Enter
if key = #13 then button1.click;
end;
end;
А в button1.click впиши необходимые действи....
Последний раз редактировалось De-visible; 27.04.2008 в 17:17..
|
|
|