unit ScanMemo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TScanMemoForm = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    EraseBt: TBitBtn;
    SaveBt: TBitBtn;
    ExitBt: TBitBtn;
    PhraseLV: TListView;
    Splitter1: TSplitter;
    MemoGB: TGroupBox;
    Memo1: TMemo;
    procedure ExitBtClick(Sender: TObject);
    procedure SaveBtClick(Sender: TObject);
    procedure EraseBtClick(Sender: TObject);
    procedure PhraseLVDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ScanMemoForm: TScanMemoForm;

implementation

{$R *.dfm}

procedure TScanMemoForm.EraseBtClick(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

procedure TScanMemoForm.ExitBtClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TScanMemoForm.FormCreate(Sender: TObject);
begin
  PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);

end;

procedure TScanMemoForm.FormShow(Sender: TObject);
begin
  Memo1.SetFocus;
end;

procedure TScanMemoForm.PhraseLVDblClick(Sender: TObject);
begin
  if PhraseLV.Selected = nil then Exit;
  Memo1.Lines.Text := Memo1.Lines.Text + PhraseLV.Selected.Caption;

end;

procedure TScanMemoForm.SaveBtClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

end.