unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure Edit1Enter(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Edit2Enter(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
FOldEdit1Text: String;
FOldEdit2Text: String;
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses
LCLType;
{ TForm1 }
procedure TForm1.Edit1Enter(Sender: TObject);
begin
FOldEdit1Text := Edit1.Text;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
if Key = VK_ESCAPE then begin
Edit1.Text := FOldEdit1Text;
Edit1.SelectAll;
Key := 0;
end;
end;
procedure TForm1.Edit2Enter(Sender: TObject);
begin
FOldEdit2Text := Edit2.Text;
end;
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
if Key = VK_ESCAPE then begin
Edit2.Text := FOldEdit2Text;
Edit2.SelectAll;
Key := 0;
end;
end;
end.