Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Действие по Enter'у 
:(
    Опции темы
Mick Winder
  Дата 23.6.2005, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1
Есть задача...
Есть на форме компоненты Edit и Label.
Как сделать чтобы после написания текста в окошке Edit и нажатия на кнопку Enter, содержимое окошка перенеслось в Label. Меня интересует сам факт использования Enter.
Попробовал использовать OnEnter компонента Edit... Не вышло...
PM MAIL   Вверх
RaIDeR
Дата 23.6.2005, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4
Цитата(Mick @ 23.6.2005, 15:48)
Попробовал использовать OnEnter компонента Edit... Не вышло...

Ты что ? smile Событие OnEnter происходит при получении фокуса.

Обрабатывай событие OnKeyDown у Edit'а :

Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN then Label1.Caption := edit1.Text;
end;
PM MAIL   Вверх
Mick Winder
Дата 23.6.2005, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1
Цитата(RaIDeR @ 23.6.2005, 16:10)
Цитата(Mick @ 23.6.2005, 15:48)
Попробовал использовать OnEnter компонента Edit... Не вышло...

Ты что ? smile Событие OnEnter происходит при получении фокуса.

Обрабатывай событие OnKeyDown у Edit'а :

Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN then Label1.Caption := edit1.Text;
end;

Спасибооо!!! smile
PM MAIL   Вверх
The MASTER
Дата 23.6.2005, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5
Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;    
  Shift: TShiftState);    
begin
If key=13 then
   begin
   label1.caption:=edit1.text;
   end;
end;


Это сообщение отредактировал(а) The MASTER - 23.6.2005, 16:31


--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 23.6.2005, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
The MASTER, Mick Winder - Код не правильный, так как будет реагировать и на Ctrl-Enter и на Shift-Enter и т.п. Надо или на KeyPress реакцию ставить или изменить:


Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_RETURN) and (Shift=[]) then Label1.Caption := edit1.Text;
end;



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 23.6.2005, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
а еще желательно (хоть в этом примере и не надо):
Код

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_RETURN) and (Shift=[]) then 
  begin
    key := 0;
    Label1.Caption := edit1.Text;
  end;
end;



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Mick Winder
Дата 24.6.2005, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 15.10.2004
Где: Москва Рязанка

Репутация: нет
Всего: -1
ВСЕМ ОГРОМНОЕ СПАСИБО!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0489 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.