wztimes-CSDN博客

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

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

2014-12-26 20:10:26 1307

转载 delphi中SendMessage使用说解

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

2014-06-04 01:19:58 715 1

转载 Delphi DbGridEh比较好看的样式

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

2014-02-08 23:26:13 340

转载 Delphi:让所有的窗口的标题和图标显示在任务栏上

转自http://hi.baidu.com/xingfupingguo/item/ecd8c0b6756e2440bb0e12edunit Unit2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm2 = class(TFor

2014-02-08 13:33:52 366

转载 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 208

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

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

2013-03-31 14:16:45 292

转载 delphi中气泡提示

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

2013-03-17 21:01:28 253

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

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

2013-03-17 18:37:47 507

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

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 156

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

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

2012-11-18 19:36:10 197

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

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

2012-06-09 18:56:23 216

转载一些小技巧和杂项

如果想让一些控件有多行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 321

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

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

2012-06-05 13:08:56 297

转载 Delphi制作托盘分析

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

2012-06-03 23:23:26 475

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

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

2012-06-03 17:30:26 211

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

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

2012-06-03 17:27:45 57

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

varForm1: 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 248

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

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

2012-05-31 22:41:49 206

一个外部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 109

一个外部DBGrid的插入行问题