unit Unit12; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinMcSkin, dxSkinsDefaultPainters, cxDropDownEdit, cxTextEdit, cxMaskEdit, cxImageComboBox, StdCtrls, Menus, cxButtons; type TForm12 = class(TForm) cxImageComboBox1: TcxImageComboBox; cxComboBox1: TcxComboBox; cxButton1: TcxButton; procedure cxButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form12: TForm12; implementation {$R *.dfm} procedure TForm12.cxButton1Click(Sender: TObject); begin Application.Terminate; end; end. |