Алгоритм "двойной Enter"

[VAM]

Доброго всем !

Есть у кого-нибудь есть какие-нинибудь наработки.
Никак не выходит. Все время "проскакивает" один перевод строки в компонент.
Компонент - RichEdit

[Aliens_wolfs]

Напишите часть кода своего, как текст в компонент попадает, просто там можно проверку делать и лишнее откидывать.

[VAM]

Сообщение от Aliens_wolfs

Напишите часть кода своего, как текст в компонент попадает, просто там можно проверку делать и лишнее откидывать.

unit Unit1;
interface uses Unit2, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm) Memo1: TMemo; Timer1: TTimer;
    procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private public end;

var
  Form1: TForm1;
  _enter: boolean;
  _count: integer;

implementation
{$R *.dfm}

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if key= VK_RETURN then
   begin
   inc(_count);
   Key := 0;
   if _count=2 then
     begin
     _count:= 0;
     if _enter then
       begin
       memo1.Lines.Add('Двойной Enter ...');
       _enter:= false;
       Key := 0;
       Exit;
       end
     end;
   if not _enter then
     begin
     _enter:= true;
     timer1.Enabled:= true;
     Key := 0;
     end;
   end
   else
   begin
   _count:= 0;
   if _enter then timer1.Enabled:= false;
   Key := 0;
   end;
 inherited;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  _enter:= false;
  timer1.Enabled:= false;
end;

end.

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Чтоб "простыня" подлиннее получилась ?
Чтоб ваш "драгоценнейший" пост занимал весь экран ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением, куда можно просто ввести ответ ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...

[Aliens_wolfs]

Я так понял что при каждом повторном нажатии Enter должна появляться ниже строка?

Если так то вот простой вариант без таймера там он ненужен

var
  Form1: TForm1;
  _count: integer=0;


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if key = VK_RETURN then
   begin
   inc(_count);
   if _count > 1 then
   begin
   memo1.Lines.Add('Двойной Enter ...');
   _count:=0;
   end;
   end;
end;

[Аватар]

Я бы предложил не париться с таймером и отлавливанием нажатий Enter, а перед записью содержимого Memo (наверно не хочется сохранять избыточные переводы строки) пропарсить его содержимое на избыточные переводы строки и удалить их

[VAM]

Сообщение от Aliens_wolfs

Я так понял что при каждом повторном нажатии Enter должна появляться строка Двойной Enter ...?

Если так то вот простой вариант без таймера там он ненужен ...

Понимаете, "двойной Enter" - это как-бы двойной быстрый клик клавишей, и соответствующее действие по нему, а Ваш упрощенный пример просто на каждый 2-й Enter даст событие. В моем случае это, как пример, - memo1.Lines.Add('Двойной Enter ...');
Меня интересует именно двойное быстрое нажатие Enter`а.

Сообщение от Аватар

Я бы предложил не париться с таймером и отлавливанием нажатий Enter, а перед записью содержимого Memo (наверно не хочется сохранять избыточные переводы строки) пропарсить его содержимое на избыточные переводы строки и удалить их

Это неприемлемо тут.

[raxp]

inherited;
Exit;

не нужен.

p.s.: могу сказать, что таймер в данном коде введен для выдержки, по истечении которой два растянутых по времени ENTER-а подряд аннулируются (т.е. когда человек нажал перевод строки, потом погулял и нажал еще раз)

[Aliens_wolfs]

два Enter подряд.

 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key= VK_RETURN then
     PostMessage(Memo1.Handle, WM_KEYUP, VK_RETURN, 0);
end;

или
вам нужно ловить сабытие по двум Enter в Memo?

[VAM]

Простите. Но это совсем не то.
Повторюсь: мне нужно среагировать на двойной Enter (т.е. на дважды быстро нажатые Enter), а не породить второй на нажатие первого ...

Сообщение от Aliens_wolfs

...
или
вам нужно ловить сабытие по двум Enter в Memo?

Да.

[Хамяг]

procedure TForm1.EnterTimerTimer(Sender: TObject);
begin
  Entered := False;
  EnterTimer.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Entered := False;
  EnterTimer := TTimer.Create(Self);
  EnterTimer.Interval := 500;
  EnterTimer.OnTimer := EnterTimerTimer;
  EnterTimer.Enabled := False;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if Entered then
    begin
      Entered := False;
      Memo1.Perform(WM_CHAR, 8, 0);
      Memo1.Lines.Add('двойной Enter');
      Key := #0;
      EnterTimer.Enabled := False;
    end
    else
    begin
      Entered := True;
      EnterTimer.Enabled := True;
    end;
  end
  else
  begin
    Entered := False;
    EnterTimer.Enabled := False;
  end;
end;

как-то так, думаю.