delphi中间件

摘要： procedure TBaseForm.SetControlCaptions(Container: TWinControl);var I: Integer; sCaption, sNewCaption, sLanguage: string; T: TRttiType; P: TRttiProperty;begin if AppConfig.Language = lgOrigal then Exit; T := TRttiContext.Create.GetType(Container.ClassInfo); P := T.GetProperty('Caption'); if P 阅读全文

摘要： unit uBaseForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TPoint = record x: Integer; y: Integer; end; TMinMaxInfo = record ptReserved: TPoint; ptMaxSize: TPoint; ptMaxPosition: TPoint; ptMinTrackSize: TPoint; ptMaxTrackSize: TPoint; end; TW 阅读全文

摘要： function TForm15.CreateBand(View: TcxGridDBBandedTableView; BandCaption, ParentBandCaption: String): TcxGridBand;var band: TcxGridBand;begin Result :=... 阅读全文

摘要： type TMYDBControler = class(TcxDBTreeListDataController);procedure TForm15.Button1Click(Sender: TObject);var AParentKeyValue: Variant;begin AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value; ADOTable1.Append; TMYDBControler(cxDBTreeList1.DataController).DBParentFiel 阅读全文

摘要： 表格内嵌编辑控件 阅读全文

摘要： procedure Import(SourceDS, DestDS: Tadoquery);var sFileName, sTableName: string; sl: TStringList; i: integer; conn: TADOConnection; dialog: TOpenDialog;begin dialog := TOpenDialog.Create(Application); if not dialog.Execute then Exit; try sFileName := dialog.FileName; conn := TADOConnection.Create(.. 阅读全文

摘要： uses Printers txtPrinterName.Items.Assign(Printer.Printers); frxReport1.LoadFromFile(AppConfig.ReportPath + ReportId + '.fr3'); frxReport1.PrintOptions.Printer := txtPrinterName.Text; frxReport1.PrintOptions.ShowDialog := False; frxReport1.PrintOptions.Copies := StrToInt(txtCopies.Text); frx 阅读全文

摘要： unit uSelect;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FindDM, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DB;type TSelect = class(TForm) TFindFrames1: TFindFrames; DBGrid1: TDBGrid; Panel1: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; DataSour 阅读全文

摘要： unit FindDM;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ExtCtrls, jpeg;type TFindFrames = class(TFrame) edtValue: TEdit; cbFields: TComboBox; Label1: TLabel; Label2: TLabel; Timer: TTimer; procedure edtValueChange(Sender: TObject); 阅读全文

摘要： 对于使用DLL包方式组织的项目，很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾选上，会有很多的问题。所以一般会将所有的EXE和DLL项目的BUILD WITH RUNTIME PACKAGE勾选上。每当这时候，你以为万事大吉了。兴奋地编译项目，满怀期待地运行，往往一运行却报错：a class named Txxx exists。。。。。。，遇到这个问题的时候，很多人傻眼了，根本不知道该如何解决。首先分析一下出现这个错误的原因：BUILD WITH RUNTIME PACKAGE勾选上意味着，整个项目都将使用唯一的一份VCL类，编译器会通过检查类名来判断该类是否已经创建 阅读全文