wztimes-CSDN博客

转载通过控件句柄获取控件实例

转自:http://blog.csdn.net/dbyoung/article/details/7020620{ ---------------通过控件句柄获取控件实例-------------------------------------------- ---------------原理详见 Classes.pas 单元，13045行 ------------------------

2014-12-26 20:10:26 1439

转载 delphi中SendMessage使用说解

转自http://www.664876.com/article/Delphi/79.html 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。函数原型：LRESULT SendMessage（HWND hWnd，UINT

2014-06-04 01:19:58 830

转载 Delphi DbGridEh比较好看的样式

转自http://www.cnblogs.com/zhangzhifeng/archive/2011/11/09/2242036.html object DBGridEh_Log: TDBGridEh Left = 2 Top = 2 Width = 635 Height = 475 Align = alClient

2014-02-08 23:26:13 416

转自http://hi.baidu.com/xingfupingguo/item/ecd8c0b6756e2440bb0e12edunit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TFor

2014-02-08 13:33:52 486

转载 TreeView的节点唯一对应数据库ID字段的问题

参看帖子http://bbs.csdn.net/topics/60131423 可以用一个 TStrings 来维护这个对应关系，在增加一个 Node 的之后，增加一个 Object 到 TStrings，删除一个 Node 之后，在 TStrings 也同时删除那个 Item。做 Clear 的时候，先 TreeView.Items.Clear, 再 Strings.Clear。下面是

2014-02-06 19:56:34 283

转载控制在任务栏中显示与隐藏

//WS_EX_APPWINDOW = 0x00040000 强制一个可见的顶级视窗到工具栏上 //WS_EX_TOOLWINDOW = 0x00000080 创建一个工具窗口:也就是说,这个窗口被用来做浮动工具条.一个工具窗口具有一个比一般的标题栏短的标题栏,并且系统在标题栏使用小字体.作为工具窗口, 它不显示在工具栏上.当用户用ALT+TAB切换时也不出显示: /

2013-03-31 14:16:45 367

转载 delphi中气泡提示

转自 http://blog.csdn.net/sj120418/article/details/7618094unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,commctrl, StdCtrls, Buttons;

2013-03-17 21:01:28 321

转载 Delphi笔记（整理）-符号和基本语法

转自 http://www.cnblogs.com/Bubalus/archive/2011/03/01/2013713.html 空格（#32）和控制符（#0 到#31，其中#13 叫回车符或行的结束符）被称为空白符（blank）。特殊符号是非文字和数字字符，或这类字符的组合，它们有固定的意义。 ‘[’相当于‘(.’，‘]’相当于‘.）’；‘(*’和‘*)’分别相当于

2013-03-17 18:37:47 591

转载没有标题栏的窗体可缩放, 以及拖动

procedure TForm1.CreateParams(var Params:TCreateParams); begin inherited CreateParams(Params); Params.Style := WS_SIZEBOX or WS_POPUP or WS_BORDER; end; *****

2012-12-09 17:07:10 228

转载设置一个窗口即使失去焦点, 也在最顶层

出处: http://bbs.csdn.net/topics/40334537 按照以下代码即可, unit IFDrag; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 =

2012-11-18 19:36:10 266

转载 listview的最基本操作和扩展

最基本的: ListView1.Items 为标准 Tlistitems类 ListView1.Items 1. 赋值 with ListView1.Items.Add do begin Caption:=caption; //添加第一项 SubItems.add(aaaaa); //添加后面数据 SubItems.add(1234); SubItems.add(12

2012-06-09 18:56:23 360

转载一些小技巧和杂项

如果想让一些控件有多行caption, 如下: http://topic.csdn.net/t/20020828/22/978607.html#r_achor 复选框: chk1.Caption := 'Line1 '#13#10'Line2 '; SetWindowLong(chk1.Handle, GWL_STYLE, GetWindowLong(chk1.Hand

2012-06-06 17:48:17 386

转载程序只运行一次并激活原来的程序

程序只运行一次并激活原来的程序 - colin小屋 - 博客频道 - CSDN.NET http://blog.csdn.net/linzhengqun/article/details/564646 内容还是复制一下, 感谢作者, 让我轻易就可以用上这个代码我们的程序有时候只允许运行一次，并且最好的情况是，如果程序第二次运行，就激活原来的程序。网上有很多的方法实现程序只运行一

2012-06-05 13:08:56 363

转载 Delphi制作托盘分析

转自 http://blog.5d.cn/user8/wwle/200905/518768.html 系统状态栏图标是指在Windows桌面系统下边的任务栏右边区域内显示的小图标，通常包括时间和输入法，另外，还会包括一些应用程序，如金山词霸或其它一些杀毒软件等的小图标。通常用鼠标右键点击这些小图标时会弹出菜单，通过选择这些菜单可以灵活地实现程序的各项功能。下面本文以一个具体的例子，详细

2012-06-03 23:23:26 582

原创查找同级别的子窗口的命令

tmpHandle:= FindWindow( 类名, nil); tmpHandle:= FindWindowEx(tmpHandle, 0 , 'TToolBar', nil); tmpHandle:= GetWindow(tmpHandle ,GW_HWNDNEXT); 这样就可以按顺序找到每一个 TToolBar的句柄

2012-06-03 17:30:26 266

查找同级别的子窗口的命令

tmpHandle:= FindWindowEx(tmpHandle, 0, 'TControlBar', nil); tmpHandle:= FindWindowEx(tmpHandle, 0 , 'TToolBar', nil); tmpHandle:= GetWindow(tmpHandle ,GW_HWNDNEXT);

2012-06-03 17:27:45 118

转载在一个外部程序上加上自己的按钮, 并响应自己的事件

var Form1: TForm1; h: HWND; proc: LongInt; function WndProc2(hwnd: HWnd; Msg: UINT; wParam: wParam; lParam: LPARAM): Integer; stdcall; implementation {$R *.dfm} function WndProc2(hwnd: HWnd; Msg:

2012-06-03 16:41:53 314

原创拖拽文件到窗体, 然后就可以操作文件了

要处理一个文件, 比如excel, 通常可以用按钮打开一个文件对话框,再找到打开不过如果直接拖拽到窗体, 这样的操作是不是更潇洒些 O(∩_∩)O哈哈~ 通过3步骤就可以在buffer得到文件名了 1: interface里 private { Private declarations } public { Public declarations }

2012-05-31 22:41:49 266

一个外部DBGrid的append插入行, post有问题

DataSet.First; //蓝色代码表示加不加这些代码, 都一样效果 DataSet.Edit; DataSet.Append; //第一条记录 DataSet.Fields[0].AsString := '测试1'; DataSet.Fields[1].AsString := '测试1'; DataSet.Fields[2].AsString := '测试1'; DataSet.Post

2012-03-29 21:50:53 172

一个外部DBGrid的插入行问题

DataSet.First; //蓝色代码表示加不加这些代码, 都一样效果 DataSet.Edit; DataSet.Append; //第一条记录 DataSet.Fields[0].AsString := '测试1'; DataSet.Fields[1].AsString := '测试1'; DataSet.Fields[2].AsString := '测试1'; DataSet.Post

2012-03-29 21:20:06 214