type Tfrm_long = class(TForm) palUp: TPanel; palLeftUp: TPanel; imgLeftUp: TImage; palRightUp: TPanel; imgRightUp: TImage; palUpMid: TPanel; imgCaption: TImage; palDown: TPanel; imgLeftDown: TImage; imgRightDown: TImage; imgDownMin: TImage; palLeft: TPanel; palRight: TPanel; imgRight: TImage; imgCloseButton: TImage; imgMinButton: TImage; imgSizeButton: TImage; imgMaxButton: TImage; imgRestoreButton: TImage; imgSysIcon: TImage; popSystemMenu: TPopupMenu; N_Restore: TMenuItem; N_Max: TMenuItem; N_Min: TMenuItem; N_Move: TMenuItem; N_Size: TMenuItem; N_Speater: TMenuItem; N_Close: TMenuItem; palClient: TPanel; lbCaption: TLabel; CoolBarMenu: TCoolBar; ToolBarMenu: TToolBar; imgLeft: TImage; imgColorLeftUp: TImage; imgGrayCaption: TImage; imgGrayMenuBar: TImage; imgGrayRightUp: TImage; imgColorCaption: TImage; imgGrayLeftUp: TImage; imgColorRightUp: TImage; imgRightUp1: TImage; imgLeftUp1: TImage; imgColorMenubar: TImage; Label1: TLabel; Label2: TLabel; e_pass: TEdit; e_zzy: TComboBox; b_ok: TMoveImgBtn; blabel_ok: TLabelBtn; blabel_exit: TLabelBtn; b_exit: TMoveImgBtn; b_edit: TMoveImgBtn; LabelBtn1: TLabelBtn; procedure imgMinButtonClick(Sender: TObject); procedure imgSizeButtonClick(Sender: TObject); procedure imgCloseButtonClick(Sender: TObject); procedure imgCaptionMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure imgCaptionMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure imgCaptionMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure im
首页 上一页 1 2 3 4 5 6 7 下一页 尾页 3/12/12