Двойное нажатие клавиши Enter

[Nezaam]

Подскажите пожалуйста, как отследить двойное нажатие клавиши Enter в Edit? Т.е. вводим в Edit какой то текст, два раза нажимаем Enter - какое то действие.

P.S. Извиняюсь если такая тема уже была. Поиском не нашел.

[ZaRDaK]

Занеси время нажатия в переменную, потом проверяй это время, если задержка устраивает - выполняй то, что надо и обнуляй переменную.

[GoodDA]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
  var Hour, Min, Sec, MSec: Word;
  tt:integer;
begin
  if key = 13 then
  begin
  DecodeTime(now, Hour, Min, Sec, MSec);
  tt:=min*60+Sec;
  if tt = tedit(Sender).Tag then
    begin
      memo1.Lines.add('DoubleEnter');
      tedit(Sender).Tag :=0;
    end else tedit(Sender).Tag :=tt;
  end;
end;

а еше лучше использовать не двойной ентер, а сочетание CTRL+ENTER

[Stilet]

Ой ой... Может проще автору сгодится?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then begin
   tag:=tag+1;
   if tag=2 then begin
    ShowMessage('два нажатия');
    tag:=0;
   end;
 end else tag:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 tag:=0;
end;

[Nezaam]

ZaRDaK, GoodDA, Stilet, спасибо за помощь. Буду разбираться.