| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с компонентом Edit [D5, D7]

денвер ©   (2006-02-02 08:55:00) 

Подскажите плиз как сделать обработчик события двойного нажатия клавишы Enter для компонента Edit

---

денвер   (2006-02-03 11:43:00) [1]

большое спасибо за ответы буду пробовать

---

денвер   (2006-02-02 10:00:00) [2]

большое спасибо за ответы буду пробовать

---

КаПиБаРа   (2006-02-02 09:48:00) [3]

Ребят, а таймер то зачем? Разве трудно замерить время между срабатываниями без таймера?

---

TUser   (2006-02-02 09:05:00) [4]

procedure TForm1.FormCreate(Sender: TObject);
begin
 FPressed:=false;
 Timer1.Interval:=300;
 Timer1.Enabled:=false;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key #13 then begin
   FPressed:=false;
   Exit;
   end;

 FPressed:=not FPressed;
 if FPressed then
   Timer1.Enabled:=true
   else begin

   // òóò îïèñûâàåì êîä, êîòîðûé äîëæåí
   // âûïîëíÿòüñÿ ïðè äâîéíîì íàæàòèè
   ShowMessage('aaa');

   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 FPressed:=false;
 Timer1.Enabled:=false;
end;

---

Rentgen   (2006-02-02 09:00:00) [5]

var
CountEnter:Integer;
...

если нажали кнопку Enter тогда inc(CountEnter)
если CountEnter>1 тогда ...твои действия...CountEnter=0

...
Можно добавить таймер

---

Наверх