在Delphi中checklistbox中高亮选中(不论是否Checked)能够进行操作么?删除,上下移动等等 删除:CheckListBox.DeleteSelected; 上下移: CheckListBox.Items.Move   删除用 CheckListBox1.Items.Delete(Index); 上下移动用 CheckListBox1.Items.Move(CurrentIndex,NewIndex); //在项目中添加字符串(子项目的最后一位接着添加)      CheckL

1.面向对象.一门面向对象的编程语言至少要实现以下三个OOP的概念 封装:把相关的数据和代码结合在一起,并隐藏细节.封装的好处是利用程序的模块化,并把代码和其他代码分开 继承:是指一个新的类能够从父类中获取属性和方法,这种概念能够用来建立VCL这样的多层次的对象,首先建立通用对象,然后创建这些通用对象的有专用功能的子对象.继承的好处是能够共享代码 多态性:从字面上看,是指多种形状.调用一个对象变量的方法时,实际被调用的代码与实际在变量中的对象的实例有关. 2.Object Pascal不像C++

今天在倒腾ListBox控件的数据编辑时,遇到了一个小小的问题,现在就把解决方法记录下来,如果各位道友有更好的方法,一定要留言赐教. 问题还原: 有一个界面,有这么一个ListBox用来显示所有的角色信息: 角色类的源代码如下,反正可以想象成任意自定义的类都可以: /// <summary> /// 单个角色对象 /// </summary> public class RoleItem { #region Public Property /// <summary> //

1. SelectAll 可以实现全选功能 Delphi/Pascal code edit1.SelectAll; // Delphi/Pascal code RichEdit1.SelStart:=0; RichEdit1.SelectAll;

Delphi实现Dbgrid全选和反选.清除全选的功能,不管是在Delphi下,还是在WEB开发中,这种功能都是很实用的,是进行数据批量操作的基础.本模块就是实现了为Delphi的DBGrid数据列表增加全选内容.清除全选的功能,很实用了,代码内容如下: //全选 procedure TFrameCustSelector.ToolButton1Click(Sender: TObject); var OldCurrent: TBookmark; begin OldCurrent := DBGrid

在实际项目中,偶然遇到需要按下SHIFT键,在DBGrid中进行多选的情况,测试了几种方法,最终确定了一个比较好的解决方法,总结如下: procedure TTestFrame.TestDBGridMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //实现 Shift+鼠标左键单击 多选 if Button = mbLeft then begin if not FblS

DBGrid1.DragMode   :=   dmManual;//留意这个设置不要变 procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); procedure TForm18.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);begincase   Msg.message   of          WM_LBUTTO

////删除多选记录 procedure THistoryForm.DeleteButtonClick(Sender: TObject);var  tempBookMark:TbookMark;  i:integer;begin  if dbgrid1.SelectedRows.Count <= 0 Then  begin    MessageBox(Handle,'请选择您要删除的记录','提示',MB_OK);    Exit;  end; If MessageBox(Handle,'删除后

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) DBGrid1: TDBGrid; ADOConnection1: TADOConnection; DataSource1: TDataSource;

DBGrid1.Options:= DBGrid1.Options+[dgMultiSelect];  //先设置DBGrid1的多选属性为True if DBGrid1.SelectedRows.Count>0 then begin   with DBGrid1.DataSource.DataSet do   for i:=0 to DBGrid1.SelectedRows.Count-1 do   begin     GotoBookmark(Pointer(DBGrid1.Selected

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

1 在数据库对应的表中加入  bit 列验证是否被选中 然后dbgrid第一列的filedname是bit列 在DBgrid的onDrawColumnCell事件中写: procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const CtrlState: array[Boolean] of Int

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) ScrollBox1: TScrollBox; Button1: TButton; proce

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

先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL

1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml') 2.DisableControls EnableControls ClientDataSet.DisableControls; ... for I := 0 to 10000 do begin ClientDataSet.Ap

常用[属性] Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令 Anchors:与组件连接的窗体的位置点 Align:确定组件的对齐方式 AutoSize:确定组件是否自动调整其大小 BiDiMode:(所有组件) 为从右向左写的语言提供支持 BoundsRect:定义组件边框矩形(只适用于运行时) Borderwidth:(窗口化组件)边框的宽度 BorberStyle:设置组件边框形状(样式) Brush:可确定组件的风格和颜色 Caption:使用该属性可指定标注组件的

关于Delphi中产生的文件    编辑阶段: pas/单元文件,dpk/组件包文件,dpr/工程文件,dfm/窗体文件    编译阶段: dcu/单元编译文件,dcp/Delphi Compile package    连接阶段: exe,dll,bpl/Borland package library    运行阶段 使用Delphi编程中需要掌握的四大语言    A. Object Pascal   B. SQL   C. HTML/XML   D. UMI Delphi发展的两个主要技术

DELPHI 的TDBGrid 控 件 主 要 用 来 处 理 数 据 表, 它 的 属 性 中 有 一 个dgMultiSelect, 若 此 属 性 设 定 为TRUE, 则 可 以 选 中 多 个 记 录( 可 用CTRL + 鼠 标 左 键 选 择 多 个 记 录). 对 选 中 的 多 个 记 录可 以 有 以 下 几 种 处 理 方 式, 比 较 简 单 的 两 种 是: 清 除 所 有的 选 择 记 录 可 用DBGrid1.SelectedRows.Clear 语 句; 删 除 

回首往日,从Delphi 7走到如今.总感觉不愠不火.期间论坛倒掉无数,没倒掉的也半死不活,大批的程序猿转向C#,Java,PHP. Delphi的开发高效有目共睹,一直不忍放弃.Delphi以前一夜之间完毕了固定资产的转换程序.从Access数据导入到MSSQL数据.那次的经历是从下午6点開始编写,中间除了吃饭和拉尿.一直坐到第二天早上10点.拍着胸脯答应客户的事情最终办到了.拷贝就用.使用也方便,不用像VB那样须要挂非常多执行库. 前段时间以XE开发的一个积分制软件结束后.也是花了大概2个月

Delphi XE2 之 FireMonkey 入门(41) - 控件基础: TListBox TScrollBox -> TCustomListBox -> TListBox; 其元素项是 TListBoxItem 类型. TListBox 的功能在 TCustomListBox 里就完成了. 值得注意的变化是: 1.复选框(相关属性: ShowCheckboxes.TListBoxItem.IsChecked)2.交替背景(通过继承还可以调整交替的背景色)3.TListBoxItem 可调