Доброго всем !
Есть у кого-нибудь есть какие-нинибудь наработки.
Никак не выходит. Все время "проскакивает" один перевод строки в компонент.
Вот код. Но что-то не так ...
| Код |
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.
|
|