Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Работа с компонентом Edit   Найти похожие ветки 

← →
денвер ©   (2006-02-02 08:55) [0]

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

---

← →
Rentgen ©   (2006-02-02 09:00) [1]

var
CountEnter:Integer;
...

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

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

---

← →
TUser ©   (2006-02-02 09:05) [2]

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

   // &#242;&#243;&#242; &#238;&#239;&#232;&#241;&#251;&#226;&#224;&#229;&#236; &#234;&#238;&#228;, &#234;&#238;&#242;&#238;&#240;&#251;&#233; &#228;&#238;&#235;&#230;&#229;&#237;
   // &#226;&#251;&#239;&#238;&#235;&#237;&#255;&#242;&#252;&#241;&#255; &#239;&#240;&#232; &#228;&#226;&#238;&#233;&#237;&#238;&#236; &#237;&#224;&#230;&#224;&#242;&#232;&#232;
   ShowMessage("aaa");

   end;
end;

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

---

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

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

---

← →
денвер ©   (2006-02-02 10:00) [4]

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

---

← →
денвер ©   (2006-02-03 11:43) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.033 c