Введение в программирование

       

Window1 object StatusBar: TStatusBar AutoHint


object MainForm: TMainForm Caption = 'Приложение с MDI-интерфейсом' FormStyle = fsMDIForm Menu = MainMenu1 WindowMenu = Window1 object StatusBar: TStatusBar AutoHint = True Panels = <> SimplePanel = True end object ToolBar2: TToolBar Images = ImageList1 object ToolButton9: TToolButton Action = FileNew1 {Именованное действие, которое будет выполнено при щелчке на кнопке} end object ToolButton1: TToolButton Action = FileOpen1 end {Кнопки панели инструментов} ... end object MainMenu1: TMainMenu Images = ImageList1 object File1: TMenuItem Caption = '&File' object FileNewItem: TMenuItem Action = FileNew1 end object FileOpenItem: TMenuItem Action = FileOpen1 end object FileCloseItem: TMenuItem Action = FileClose1 end ... object FileExitItem: TMenuItem Action = FileExit1 end end object Edit1: TMenuItem ... end object Window1: TMenuItem ... end end object OpenDialog: TOpenDialog {Диалог Open} Filter = 'All files (*.*)|*.*' end object ActionList1: TActionList object FileNew1: TAction Category = 'File' Caption = '& New' OnExecute = FileNew1Execute end object FileOpen1: TAction Category = 'File' Caption = '&Open' OnExecute = FileOpen1Execute end ... end end

Листинг 25.3.
Закрыть окно





object MainForm: TMainForm

Caption = 'Приложение с MDI-интерфейсом'

FormStyle = fsMDIForm

Menu = MainMenu1

WindowMenu = Window1

object StatusBar: TStatusBar

AutoHint = True

Panels = <>



SimplePanel = True

end

object ToolBar2: TToolBar

Images = ImageList1

object ToolButton9: TToolButton

Action = FileNew1 {Именованное действие,

которое будет выполнено при щелчке на кнопке}

end

object ToolButton1: TToolButton

Action = FileOpen1

end

{Кнопки панели инструментов}

...

end

object MainMenu1: TMainMenu

Images = ImageList1

object File1: TMenuItem

Caption = '&File'

object FileNewItem: TMenuItem

Action = FileNew1

end

object FileOpenItem: TMenuItem

Action = FileOpen1

end

object FileCloseItem: TMenuItem

Action = FileClose1

end

...

object FileExitItem: TMenuItem

Action = FileExit1

end

end

object Edit1: TMenuItem

...

end

object Window1: TMenuItem

...

end

end

object OpenDialog: TOpenDialog {Диалог Open}

Filter = 'All files (*.*)|*.*'

end

object ActionList1: TActionList

object FileNew1: TAction

Category = 'File'

Caption = '&

New'

OnExecute = FileNew1Execute

end

object FileOpen1: TAction

Category = 'File'

Caption = '&Open'

OnExecute = FileOpen1Execute

end

...

end

end


Содержание раздела