VPF::Алгоритм "двойной Enter" - Форум программистов

Kotofff

Дата 9.11.2011, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

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

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

Вот код. Но что-то не так ...

Код


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.

Snowy

Дата 9.11.2011, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Что-то нагородил всего. Какие-то таймеры...
Просто засунь код в OnKeyUp:

Код

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »