Показать сообщение отдельно
  #2  
Старый 02.07.2010, 10:32
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Код:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#32 then Image1Click(sender);
end;
Ответить с цитированием