2013年03月_缘中人

12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

原创自定义控件最简单的例子

h文件class PACKAGE timagelist1 : public TImageList{private:protected:public: __fastcall timagelist1(TComponent* Owner);__published:}; cpp文件static inline void ValidCtrCheck(t

2013-03-30 16:28:38 1709

转载如何在Delphi TImageList 中使用透明 png 图标

前一段时间写一个程序，ImageList中添加PNG图片，Toolbar引用ImageList中的PNG图片时，图片背景是黑色，其实只要设置ImageList的一个属性：ColorDepth设置成cd32Bit就可以了。 2010-11-29 17:06 [转] 如何在Delphi TImageList 中使用透明 png 图标原文标题：How to use tran

2013-03-29 20:28:09 4756

转载 delphi如何获取鼠标当前位置颜色

delphi如何获取鼠标当前位置颜色使用这个函数，COLORREF GetPixel( HDC hdc, // handle to DC int nXPos, // x-coordinate of pixel int nYPos // y-coordinate of pixel);可以调用之前调用GerCursorPos 来获取鼠标在屏幕上的位置，如果仅仅

2013-03-29 10:27:59 2549

转载判断是否有滚动条

if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) ShowMessage('Vertical scrollbar is visible!'); if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) ShowMess

2013-03-29 10:26:46 1226

转载无光驱无U盘硬盘安装操作系统 NT6

开机从硬盘启动系统安装程序，特别适用于WIN7的系统从硬盘中安装系统，先将ISO文件解压至硬盘的根目录下，重启选择NT6 即可！ nt6 hdd installer 主要针对没有光驱或者u盘安装系统的用户，当然如果有光驱我也会选择用 nt6 hdd installer 因为实在是方便，可以支持x86和x64的系统，可以格式化c盘装成纯净的系统，也可以装成多系统，安装win

2013-03-28 17:11:09 1417

原创看不到变量值 variable 'X' inaccessible here due to optimization

variable 'X' inaccessible here due to optimization，这是带优化功能的编辑器的一个小缺点。如果要检查易被优化的变量，则必须关闭编译器的优化功能，即把Project Options对话框中的Compiler页面上的Optimization选项关闭。

2013-03-28 16:15:33 2224

原创 tcolor赋值16进制颜色

tcolor = RGB(0,85,224);=0x00E05500; 就是 BGR顺序的16进制，有些截图工具给的16进制是RGB顺序 0x0055E0顺序颠倒中间数字G不变，BR调换一下就可以用了没想到好办法，运行windows的calc ，3个数字分别转成16进制就ok了0=R224=0xE0;=B85=0x55;=G

2013-03-26 15:54:42 1629

原创 adoconnection连接excel连接串

ADOConstr= "Provider=Microsoft.Jet.OLEDB.4.0;" "User ID=admin;" "Data Source="+ExcelFile+";" "Mode=Share Deny None;" "Extended Properties=Excel 8

2013-03-25 15:06:21 1699

转载 Delphi 类似实现QQ多窗口显示任务栏上

原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。http://bigpower.blog.51cto.com/209892/94976 Form2为动态创建窗口，在窗口的OnCreate事件中添加以下代码。 procedure TForm2.FormCreate(Sender: TObject

2013-03-22 16:48:02 1357

转载 parentwindows

frm->ParentWindow=this-Handle; TForm1 *frm=CreateMDI(Application);//frm->ParentWindow = Form2; frm->Parent=Form2->Panel1; //显示在panel上

2013-03-22 16:08:01 765

原创日期光标控件输入完成后自动跳转默认跳到日期栏

void __fastcall TForm1::Button1Click(TObject *Sender){ DateTimePicker1->SetFocus(); keybd_event(VK_RIGHT,0, KEYEVENTF_EXTENDEDKEY, 0); //值改变时模拟一次右键头实现日期连续输入}

2013-03-22 15:42:53 1974

转载 TFS 2010 让安装更简单，也让VSS成为历史

点击打开链接TFS 2010 让安装更简单，也让VSS成为历史VSSConverter工具支持从Visual SourceSafe（VSS）到TFS 2010的自动迁移；http://blog.csdn.net/quicknet/article/details/4266241

2013-03-22 11:35:47 1059

转载改变菜单字体

窗体上放一MainMenu1，包含的菜单项为MenuItem1,MenuItem2...设置为MainMenu的OwnerDraw为True,MenuItem1的OnDrawItem事件：procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boo

2013-03-22 10:52:29 1084

原创 toolbar的背景色竟然不起作用了

Style.rcStyle.resStyle.xml添加此文件，toolbar的背景色竟然不起作用了，toolbar.transparent=true透明可以透明到父控件的颜色，toolbar.transparent=false不透明颜色竟然不是toolbar的colar颜色

2013-03-21 17:24:14 3772

原创 Class TToolButton not found

c++builder运行时保存，窗体打不开。Class TToolButton not founddfm文件里有控件TToolButton的定义，h文件中没有引起的，代码复制dfm文件引起的

2013-03-21 13:31:43 1353

原创高亮listbox鼠标移动所在位置的项目

发送消息LB_ITEMFROMPOINT获取位置方法一发消息void __fastcall TForm2::ListBox1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y){ int idx; idx = SendMessage(ListBox1->Handle, LB_ITEMFR

2013-03-21 11:04:44 3391

原创 WIN7安装IE9 未能完成安装

Windows 更新程序 (KB982861)(KB2028551，KB2028560，KB2120976查看安装日志C:\Windows\IE9_main.log KB982861大家都可能安装失败，但原因不一样，错误代码不一样，仔细查看日志文件没搞定，最后装了个ie10,！ERROR: Language package installation failed

2013-03-18 17:08:48 8236

转载 SetWindowPos

用SetWindowPos或MoveWindow完全可以将窗口变得大于屏幕分辨率关键是要去掉窗口的WS_THICKFRAME风格并加上WS_POPUP风格我用以下DELPHI程序可以做到:style:=GetWindowLong(Mainform.Handle, GWL_STYLE);style:=style and (not (WS_THICKFRAME));style:

2013-03-18 16:32:46 1657

原创自画Caption标题栏

要实现自己绘制窗口的标题栏，必须拦截两个消息 WM_NCPAINT 和 WM_NCACTIVATE。我在这里给出部分关键的 C++ Builder 代码，其实用 Delphi 实现也是很容易的。class TForm1 : public TForm{// 窗体类声明细节省略private:void __fastcall WMNCPaint(TMessage &Msg);

2013-03-16 15:06:09 1304

原创用代码实现最大化,最小化,还原操作

一、ShowWindow ShowWindow(handle, SW_MAXIMIZE) ;最大化 ShowWindow(handle, SW_MINIMIZE) ; 最小化 ShowWindow(handle, SW_RESTORE) ;还原二、发消息或者用WM_SYSCOMMAND SendMessage(self.Handle,

2013-03-15 15:26:30 3474

原创 ApplicationEvents1ShortCut

主程序设置了ApplicationEvents1ShortCut且在快捷键里打开其他子窗体，且设置焦点，则尽量和子窗体的快捷键不要冲突，否则子窗体里的判断和焦点转移判断等可能有问题。

2013-03-14 10:57:48 1174

原创 GridEH的PickList自动弹出下拉

方法一DBGridEh1->EditorMode = true; //设为编辑模式DBGridEh1->Columns->Items[2]->DropDown(); //下拉方法二模拟按键消息F2

2013-03-13 14:30:50 1746

原创任务栏切换程序消息

00080AC6 S WM_NCACTIVATE fActive:False 00080AC6 S message:0x0093 [未知] wParam:00000000 lParam:0012F3F4 00080AC6 R message:0x0093 [未知] lResult:00000000 00080AC6 S message:0x0093 [未知] wParam:000000

2013-03-11 22:10:44 1333

转载 cannot assign a tfont to a tfont

只需要将 ParentFont置为Falsehttp://blog.163.com/xd8171@126/blog/static/62081043200910179332166/http://hi.baidu.com/jangill/item/4daeb8f1b5c68517ce9f325chttp://hi.baidu.com/jangill/item/53b6d8b896049ea

2013-03-11 10:25:15 2184

原创 TThread执行自定义函数

1、线程定义#ifndef MyThreadH#define MyThreadH#include class threadMy : public TThread{private:protected: void __fastcall Execute();public: TThreadMethod myMethod; __f

2013-03-10 20:51:32 1270

原创线程CreateThread 用法

方法一原始CreateThreadh文件----class TForm1 : public TForm{。。。};extern PACKAGE TForm1 *Form1; DWORD WINAPI MyFun ( LPVOID lParam );#endif cpp文件-DWORD WINAPI MyFun ( LPVOID lParam )

2013-03-10 20:27:00 1148

原创尚未调用 CoInitialize

尚未调用 CoInitialize是怎么回这个一般是在使用COM或者调用ADO控件时出现的错误，通常情况下都是程序的问题。调用了com,ole函数库前就要coinitialize,因为在应用程序中，delphi会自动在initialize 单元加上对co...函数的调用，在dll中要自己调用这样调用一下就可以了 CoInitialize（NULL);

2013-03-10 20:21:25 4207

转载 DELPHI实现类似仿360桌面的程序界面

1.窗体半透明： Alphablend属性为true;Alphablendvalue的值为1002.窗体透明：formCreate:Self.TransparentColor := True;Self.TransparentColorValue := clBlack;self.color := clblack;3.隐藏桌面图标var h: HWND;beg

2013-03-08 21:50:01 3233 1

原创 Win7访问共享文件夹记不住凭据

Win7访问共享文件夹记不住凭据，发现记住凭据的永久性不同，手动添加的凭据是企业，而输入记住凭据则是windows登陆回话能修改注册表把凭据的永久性从回话改成企业吗

2013-03-08 14:33:34 9907 1

原创 2T硬盘安装WIN7分区格式

主启动记录 (MBR) 分区传统的主启动记录 (MBR)磁盘分区支持最大卷为 2 TB (terabytes) ，每个磁盘最多有 4 个主分区（或 3 个主分区，1 个扩展分区和无限制的逻辑驱动器）。GUID GPT GUID 分区表格式（Globally Unique Identifier Partition Table Format，GPT)，是一种由基于 Itanium 计算机中

2013-03-04 19:06:52 3053

原创 [Linker Fatal error] Unable to open file 'PROXIES.OBJ'

[Linker Fatal error] Unable to open file 'PROXIES.OBJ'把...\Tools\开发工具\C++Builder\cb6安装控件缺少的dcu 下的文件拷贝到 D:\Program Files\Borland\CBuilder6\Source\Toolsapi 工程中的包含路径添加此路径编译OK

2013-03-01 13:45:57 1749

原创 [C++ Error] BDE.hpp(4159): E2015 Ambiguity between 'PLongint' and 'System::PLongint'

[C++ Error] BDE.hpp(4159): E2015 Ambiguity between 'PLongint' and 'System::PLongint' D:\Program Files\Borland\CBuilder6\include\VCL\BDE.hppD:\Program Files\Borland\CBuilder6\Include\Vcl修改里边的文件

2013-03-01 13:44:06 2223

原创手动安装SUIPack

D:\Program Files\Borland\CBuilder6\Include\suipack5.85\Packages执行安装包的setup、install失败，顶层xml元素无效打开cb，打开D:\Program Files\Borland\CBuilder6\Include\suipack5.85\Packages目录的SUIPackC6.bpk，然后install就像安装其他

2013-03-01 13:36:36 2452