【麦麦提敏】

摘要： 首先将pagecontrol的ownerdraw设为true再在它的onDrawTab事件里写如下代码：var TmpRect: TRect;begin with PageControl1.Canvas do begin Brush.Color := $00E6F6F8; Font.Color := clblack; FillRect(Rect); TmpRect := Rect; OffsetRect(TmpRect, 0, 3); DrawTex... 阅读全文

摘要： delphi执行查询语句时的进度条怎么做procedure TForm1.FormCreate(Sender: TObject);begin ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取end;//ADOQuery的OnFetchProgress事件procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);begin ProgressB 阅读全文

摘要： Fastreport使用经验(转) 在Delphi程序中访问报表对象最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用T 阅读全文

摘要： cxgrid 双击 获取所点击行的内容创建view的 optionsselection->cellselect 设置为false ，才能触发双击事件案例：procedure TForm_Child_Archive.cxGrid1DBTableView1CellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);begin3 ////取得 阅读全文

摘要： 我有一个问题请教：我在BDEQUERY中使用其FILTER属性进行条件筛选时一切正常，但相同的条件拿到ADOQUERY中使用就出现错误，具体情况如下：1、BDEQUERY和ADOQUERY指向同一个数据库，其中的SQL语句相同；2、筛选条件如果是以下类型的情况都正确： (字段1= 'AAA ') (字段1= 'AAA ') OR (字段1= 'BBB ') (字段1= 'AAA ') AND (字段2= 'TTT ')3、但当出现此类情况时就会出错： （(字段1= 'AAA ') OR (字段1= 阅读全文

摘要： Delphi 2007 代码补全、语句提示的快捷键是什么?CTRL+SPACE 代码补全，很好用的(先改了输入法热键) CTRL+SHIFT+C 编写申明或者补上函数 CTRL+SHIFT+↑(↓) 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义（在INTERFACE和IMPLEMENTATION之间来回切换） CTRL+SHIFT+G 插入GUID CTRL+J (弹出DELPHI语句提示窗口，选择所需语句将自动完成一条语句)代码模板 CTRL+K+E(F) 标识符变小（大）写 CTRL+K+O(N) 选中的变小（大）写 CTRL+O+U 切换选择块的大小写 SHIFT+鼠标 阅读全文

摘要： Delphi中使用存储过程介绍Delphi + MS SQL Server是目前最为流行的管理信息系统开发环境和工具。Delphi的强大数据库操作控件极大地减轻了开发人员的工作量，在这些控件中，最常用的有 TQuery、TTable、TADOQuery、TADOTable、TADODataSete等，这些控件执行查询操作时有一个共同的特点，即将所有数据库记录从服务器取回客户端，再根据查询的条件进行筛选。很明显，如果有大量的数据在服务器与客户端之间传递，就会降低程序执行的速度，影响应用程序的性能。针对这种情况，MS SQL Server数据库和Delphi开发工具都提供了存储过程来解决这类问题。 阅读全文

摘要： 在IDE中输入控件的名称+. 就会弹出代码完成提示，会列出该控件的所有属性、方法等，也许你对代码完成就是这样的印象，其实它还有一些好用的功能，只不过由于它的激活快捷键也是ctrl+space，与我们的中英输入法切换快捷键冲突才没有显露出来，我强烈建议大家把中英输入法切换快捷键改为其它，以使用完整的代码完成功能，下面是一些代码完成功能的演示动画，看看，很酷吧！呵呵，再实现接口时接口定义的方法可以直接过来了，真好用。处理消息时也很方便，消息的定义自动就上去了这功能没见过吧，很有趣也可以直接定位到方法的实现代码引用单元时也不用死记硬背了，也可以选了 阅读全文

摘要： Delphi编程地一些小程序1、用Enter键代替Tab键在实际的程序开发中我们经常有这样的要求，用户不喜欢用Tab键，他希望用Enter键来代替。我们应该什么做呢？首先：设定Form的KeyPreview属性为True。其次：把Form上的所有Button的Default属性设为False。最后：在Form的onKeyPress事件中添加如下代码：procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin　if Key = #13 then　begin Key := #0; Perform(Wm_NextDlg.. 阅读全文

摘要： Python - 开始使用Python编程Python is a programming language that lets you work more quickly and integrate your systems more effectively. You can learn to use Python and see almost immediate gains in productivity and lower maintenance costs.在我使用Ubuntu做为我的操作系统以来，根据我的体会上面说的没错。功能强大，简单灵活的脚本语言。即使你使用windows搭建Pyt 阅读全文