ufrmtaxicall_ct_autopointsedit.pas

来自「a voice guide client ,it is the second p」· PAS 代码 · 共 53 行

unit ufrmTAXICALL_CT_AutoPointsEdit;

interface

uses
  Windows, cxLookAndFeelPainters, cxGraphics, dxStatusBar, StdCtrls, SysUtils,
  cxButtons, cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel,
  ExtCtrls, RzPanel, dxDockPanel, dxDockControl, Classes, Controls,
  uBaseDBEditForm, cxMaskEdit, cxDropDownEdit, cxMemo, Mask, RzEdit,
  ComCtrls, TbListView, ImgList;

type
  TfrmTAXICALL_CT_AutoPointsEdit = class(TBaseDBEditForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    btnSave: TcxButton;
    btnCancel: TcxButton;
    dxStatusBar: TdxStatusBar;
    RzGroupBox1: TRzGroupBox;
    Longitude: TcxTextEdit;
    cxLabel3: TcxLabel;
    cxLabel13: TcxLabel;
    Latitude: TcxTextEdit;
    name: TcxTextEdit;
    cxLabel5: TcxLabel;
    procedure FormCreate(Sender: TObject);
    procedure Initial(_is_new: Boolean); override;
  end;

implementation

{$R *.dfm}

procedure TfrmTAXICALL_CT_AutoPointsEdit.FormCreate(Sender: TObject);
begin
  CaptionControl := dxDockPanel1;
  HintControl    := dxStatusBar;
  ButtonConfirm  := btnSave;
  ButtonCancel   := btnCancel;
end;

procedure TfrmTAXICALL_CT_AutoPointsEdit.Initial(
  _is_new: Boolean);
begin
  inherited;
  //
end;

end.