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