1 unit Unit1;
2 
3 {$mode objfpc}{$H+}
4 
5 interface
6 
7 uses
8   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
9   ActnList, StdActns, ComCtrls, Menus;
10 
11 type
12 
13   { TForm1 }
14 
15   TForm1 = class(TForm)
16     ActionList1: TActionList;
17     ColorSelect1: TColorSelect;
18     Edit1: TEdit;
19     EditCopy1: TEditCopy;
20     EditCut1: TEditCut;
21     EditDelete1: TEditDelete;
22     EditPaste1: TEditPaste;
23     EditSelectAll1: TEditSelectAll;
24     EditUndo1: TEditUndo;
25     FileExit1: TFileExit;
26     FileOpen1: TFileOpen;
27     FileOpenWith1: TFileOpenWith;
28     FileSaveAs1: TFileSaveAs;
29     FontEdit1: TFontEdit;
30     ImageList1: TImageList;
31     MainMenu1: TMainMenu;
32     Memo1: TMemo;
33     MenuItem1: TMenuItem;
34     MenuItem10: TMenuItem;
35     MenuItem11: TMenuItem;
36     MenuItem12: TMenuItem;
37     MenuItem13: TMenuItem;
38     MenuItem16: TMenuItem;
39     MenuItem17: TMenuItem;
40     MenuItem2: TMenuItem;
41     MenuItem3: TMenuItem;
42     MenuItem4: TMenuItem;
43     MenuItem5: TMenuItem;
44     MenuItem6: TMenuItem;
45     MenuItem7: TMenuItem;
46     MenuItem8: TMenuItem;
47     MenuItem9: TMenuItem;
48     SearchFind1: TSearchFind;
49     SearchFindFirst1: TSearchFindFirst;
50     SearchFindNext1: TSearchFindNext;
51     SearchReplace1: TSearchReplace;
52     ToolBar1: TToolBar;
53     ToolButton1: TToolButton;
54     ToolButton10: TToolButton;
55     ToolButton11: TToolButton;
56     ToolButton2: TToolButton;
57     ToolButton3: TToolButton;
58     ToolButton4: TToolButton;
59     ToolButton5: TToolButton;
60     ToolButton6: TToolButton;
61     ToolButton7: TToolButton;
62     ToolButton8: TToolButton;
63     ToolButton9: TToolButton;
64     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
65   private
66     { private declarations }
67   public
68     { public declarations }
69   end;
70 
71 var
72   Form1: TForm1;
73 
74 implementation
75 
76 {$R unit1.lfm}
77 
78 { TForm1 }
79 
80 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
81 begin
82   CanClose := MessageDlg('Do you want to exit?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
83 end;
84 
85 end.
86 
87