/
CommentsUnit.pas
43 lines (33 loc) · 1.29 KB
/
CommentsUnit.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{**********************************************************************}
{ }
{ Developed by Sergey A. Kryloff under the GNU General Public License. }
{ }
{ Software distributed under the License is provided on an }
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or }
{ implied. See the License for the specific language governing }
{ rights and limitations under the License. }
{ }
{**********************************************************************}
unit CommentsUnit;
{$MODE Delphi}
interface
uses
LCLIntf, LCLType, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TCommentsForm = class(TForm)
CommentsMemo: TMemo;
procedure CommentsMemoKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var CommentsForm : TCommentsForm;
implementation
{$R *.lfm}
procedure TCommentsForm.CommentsMemoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close()
end;
end.