在dbgrideh中允许选择多行,如何知道哪些行被选中是个BOOKMARK类型的属性.SelectedRows: TBookmarkListprocedure TForm1.Button1Click(Sender: TObject);vari, j: Integer;s: string;beginif DBGrid1.SelectedRows.Count>0 then with DBGrid1.DataSource.DataSet do for i:=0 to DBGrid1.SelectedR

DbGridEh中改变行的颜色 代码也挺简单的,只是当时没有想到: if ds2.FieldByName('AutoRead').AsInteger=0 thenbegin  DBGridEh1.Canvas.Brush.Color:=clGrayText;  DBGridEh1.Canvas.Font.Color:=clWhite;  DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);end;

http://www.cnblogs.com/smallmuda/archive/2009/07/24/1529845.html delphi 如何判断应用程序未响应    今天在MSN的核心讨论组上看到两篇文章.讨论的乃是应用程序是否没有响应.原文如下:           >   How   is   it   possible   to   determine   a   process   is   "not   responding"   like   NT   Tas

一.DataGridView不显示下面的新行 通常DataGridView的最下面一行是用户新追加的行(行头显示*).如果不想让用户新追加行即不想显示该新行,可以将DataGridView对象的AllowUserToAddRows属性设置为False. 示例: this.dgv_PropDemo.AllowUserToAddRows = false; 但是,可以通过程序给DataGridView追加新行: this.dgv_Demo.Rows.Add(); 注:只有DataGridView是非绑

Delphi做程序开发在使用到列表控件时,一般是列表放文本内容,在列表以外放操作按钮,选中列表某项再点按钮进行操作.现在Web开发做列表的样式总是列表的每行都有操作按钮,如微博的列表风格: Web开发常用这种风格,一来是用户找操作按钮的移动距离近,二来制作上也不麻烦,不过CS程序开发就很少能找到现成的控件可用了. 最近正好要做个类似的控件,虽然不是微博风格,但都是在列表上放按钮放图片的样式,做完之后总结了一下感觉列表上放神马已经都不在话下了,分享一下开发经验. 我们可以使用TListBox控件来

在delphi 7中(其他版本也可能碰到该问题),编译后,代码左边显示蓝色小点,表示哪句代 码是被编译了的,可今天我的一些代码不能显示那些蓝点了,这样也就不能在上面设断点了,而且用F8跟踪发现执行的顺序不对.同时,编译中发现有错误的行,也没有指到对应的行上,可能在错误行的下一行,甚至有时候会执行到注释行或者空行上.造成该问题的原因是Dos换行和Unix换行的差异造成的错误. Dos换行是2个字符,一个回车符+一个换行符. Unix换行只有一个自符,好像是换行符.这样在Delphi编辑器内显示时候

http://www.alonely.com.cn/Delphi/20160814/8912.html 实例说明本例是个光标应用的简单技巧,希望通过这个例子的学习后能举一反三.Delphi中像这样简单而又实用的例子还有很多,只要平时多注意积累就能写出简洁.执行效率高的代码.编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值,即可获知此组件中光标所在的行号,向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号 实例说明 本例是个光标应用

Delphi DBGrid右键删除行并提交至数据库.在form上添加,控件TPopupMenu,并指定右键名称:删行 2.编写删除语句: If ADOQuery1.State in [dsEdit, dsInsert] then ADOQuery1.Post;    If ADOQuery1.RecordCount <> 0 then ADOQuery1.Delete; 3.把dbgrid的PopupMenu属性,设置成刚刚添加的控件TPopupMenu. 4.编译,运行

Delphi之通过崩溃地址找出源代码的出错行 一 什么是MAP文件 什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号.源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方.任何时候使用,不需要有额外的程序进行支持.而且,这是唯一能找出程序崩溃的地方的救星. 如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算: 崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000 为什么要这样做呢?我们得到的崩溃

判断网络的是否连接或者连接方式,比较重要的一点就是是不是即时判断,如果你明明无连接,判断出来却说你有,连接上了,却说你还未连接,下面要介绍的两个方法中 InternetGetConnectedState就是不怎么够即时的API函数,而第二个使用的是IsNetworkAlive这个API函数,这个没有InternetGetConnectedState的那种问题,但是可能需要安装SDK,也就是.Net框架. 一.InternetGetConnectedState 在DELPHI中 引用wininet

import re ##判断行是否存在def get_need_line(): ## 获取有用信息行 with open('task.log',mode="r") as f: for line in f.readlines(): TaskName = re.search("TaskName", line) ##查询是否存在TaskName state = re.search("Scheduled Task State: ", line) if T

ClientDataSet的数据查找.我所介绍的心得和技巧都是用ClientDataSet来做范例,也可以应用于其他的一些DataSet.废话就不多说了.我们还是先看代码,让后再总结.1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法,遍历所有数据:procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean;beginFound := False;ClientDataSet1.DisableControls;

Using the Android Device's Back Button To make your application handle when users press the Back button on their Android device, add an event handler to your form for OnKeyUp, and use the following code within your event handler: Delphi: if Key = vkH

// 新增行后,默认首列 procedure TForm1.ADOQuery1AfterInsert(DataSet: TDataSet);begin  with DBGridEh1 do  begin    SelectedIndex := 0;  end;end; // 行选中 DBGridEh_Yingfu_SearchQK.SelectedRows.SetCurrentRowSelected(True); //选中单元格 DBGridEh1.SelectedField := ADOQue

unit Unit_DBGridEhToExcel; interface uses SysUtils, Variants, Classes, Graphics, Controls, Forms, Excel2000, ComObj, Dialogs, DB, DBGridEh, windows,ComCtrls,ExtCtrls; type TDBGridEhToExcel = class(TComponent) private FProgressForm: TForm; {进度窗体} Ftem

1.先设置表格列的属性 procedure TForm_TaskToDW.InitGrid;var  MyCol: TColumnEh;begin  with DBGridEh_Task do  begin    Columns.Clear;    MyCol := Columns.Add;    MyCol.FieldName := 'Select';    MyCol.Title.Caption := '选择';    MyCol.Alignment := taCenter;    MyCo

http://blog.163.com/l1_jun/blog/static/143863882011741124581/ 由于 Delphi2005 支持中文标识符,在编写 PASCAL 词法分析器的过程中遇到了这个问题,经过多次试验找到了解决方案,至今未发现问题. 代码如下: ) then    result:=false else result:=true;end; 2005年1月28日:感谢滚龙的指点,已将代码改写如下: ) then result:=true  else result:

MyBatis发现更新和插入返回值一直为"-2147482646"的错误是由defaultExecutorType设置引起的,如果设置为BATCH,更新返回值就会丢失.mybatis官方的讨论列表,这句很关键:“If the BATCH executor is in use, the update counts are being lost. ” 在我的springMVC和mybatis整合中设置了如下内容 <!-- 配置mapper接口 --> <bean clas

方法一: 在WebBrowser的OnDocumentComplete事件书写代码. 方法二: WebBrowser1.Navigate(Url); while WebBrowser1.Busy or (WebBrowser1.ReadyState<>READYSTATE_COMPLETE) do Application.ProcessMessages;

Uses   TypInfo;         {$R   *.dfm}         procedure   TForm1.Button1Click(Sender:   TObject);     var         I:   Integer;     begin         for   I   :=   0   to   ComponentCount   -   1   do             if   IsPublishedProp(Components[I],   'Ca

第一步.在form中放置一个ImageList: 第二步.将ListView的SmallImages设置为第一步中放置的ImageList: 第三部.将imageList的height设置成自己需要的值即可