黑白程式

摘要： 楼主StKamen（牛虻）2006-06-06 12:22:46 在 Delphi / VCL组件开发及应用 提问 当Treeview某个节点被点击时,要让它的图标变成另外一个图标怎么做呢? 请问节点被点击时候的事件是什么呢?我的代码大体如下 TreeView1.items[TreeView1.Selected.Index].ImageIndex:=1;//原来未被点击时候的image... 阅读全文

摘要： program Project1; uses Windows ,Messages ,SysUtils; const appname='fancydemo'; function windowproc(window:HWND ;amessage:UINT ;wparam:WPARAM ; lparam:LPARAM ):LRESULT ;stdcall ;export ; var ... 阅读全文

摘要： 可视化控件(Visual Component)实际上就是一个类(class)，要编写一个类，可以直接在*.pas文件中编写。但是要编写控件，则必须使用包 (package)。从File菜单中选择New，新建一个Package，这就是存放和安装控件用的包。然后单击Package窗口中的Add按钮，添 加一个元件(Unit)。 在弹出的对话框最上方选择New Component。因为一个控件的所有... 阅读全文

摘要： DELPHI的开源控件集（转自http://xieyunc.blog.163.com/） 2008年07月21日 星期一 10:47 ... 阅读全文

摘要： 在Delphi中编写控件的基本方法（转） 2007-12-10 16:49 作为Delphi程序员，要想进一步提高编程水平就必须掌握控件的编写方法，本篇文章将通过一个简单的例子来为初学者介绍编写控件的一些基本方法和模式。 这个例子控件叫TLeiLabe... 阅读全文

摘要： 一测试存储过程 CREATE PROCEDURE DelphiSql @age int AS begin select * from person where nianling>@age; end; GO 调用例子 通过ADOQUERY调用代码 procedure TForm1.btn1Click(Sender: TObject); var listitem:TListItem ; b... 阅读全文

摘要： function Tformmain.UpdateUsercardFlag(dsjbh,qh,uphone:string):boolean;//更新用户号码簿中的检查标志 begin try with QryTemp do begin if Active then close; sql.Clear; // select dsjbh,qh,uphone,z... 阅读全文

摘要： 一个例子： with QryTemp do begin if Active then close; sql.Clear; // select dsjbh,qh,uphone,zjtype,uzjsj,checkflag from user_card sql.Text:='update user_card set checkflag=1 where' ... 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject); var listitem:TListItem ; begin tlistview(lv1 ).Items.BeginUpdate; try tlistview(lv1 ).Items.Clear; with qry1 do begin Clos... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var MyTreeNode1, MyTreeNode2: TTreeNode; begin with TreeView1.Items do begin Clear; { remove any existing nodes } MyTreeNode1 := Add... 阅读全文