| 共 48 篇文章 |
|
在Delphi中编写控件的基本方法。property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;再在private中定义变量：“FStyle3D:T3DEffect;”，并设置SetStyle3D()方法如下，这也是写方法的一般格式：procedure TLeiLabel.要重画控件一般要重载Paint方法，此处只是重画文字，我们只需重载DoDrawText方法。Property URL : Stri... 阅1433 转31 评0 公众公开 05-08-09 16:04 |
回调函数一般是按照调用者的要求定义好参数和返回值的类型，你向调用者提供你的回调函数的入口地址，然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你，并按照预先规定好的形式传递参数。然后在implementation部分定义函数：function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;var.接着需要做的就是调... 阅2087 转12 评0 公众公开 05-08-09 15:51 |
把这个动态链接库映射到2G以上的系统动态链接库所在空间，把系统动态链接库中的该API的指向修改指向自己的函数。（原因是NT中动态链接库不是共享的，每个进程都有自己的一份动态链接库在内存中的映射） 2、自己写一个动态链接库，里面定义自己写得象替代系统的API。即： call messageBoxA(0040106c) jmp dword ptr [_jmp_Mess... 阅2145 转13 评0 公众公开 05-08-09 15:37 |
如果大家对Windows API编程比较熟悉的话，应该知道对于遍历访问一般有两种办法，一是定义一个回调函数，然后将回调函数地址传递给遍历函数，当遍历到一个内容时就会调用回调函数一次，例如EnumWindows函数。FindFirstUrlCacheEntryEx(nil, 0, NORMAL_CACHE_ENTRY, 0,nil,@D, nil, nil, nil);try H := FindFirstUrlCacheEntryEx(nil,0, NORMA... 阅1727 转3 评0 公众公开 05-08-09 14:50 |
function SSLGenerateKey(pcName, pcCompany, pcApplication, pcMajor : string) : String;function CRCExecute(pcString : String) : String ;{------------------------------------------------------------------------------}function SSLEncode(pcName, pcCompany, pcAppTitle, pcMajor: String): String;cKey := pcName + pcCompany + p... 阅1263 转4 评0 公众公开 05-08-09 14:40 |
一、老生长谈 Delphi VS VC已经是很古老的话题了，但是我还是想在这里谈一下，全是一家之言，如果不同意，请一笑之。// 主窗体 if SetAlarmParamDlg.ShowModal = MrOK then begin AlarmTimes := SetAlarmParamDlg.AlarmTimes; AlarmArea := SetAlarmParamDlg.AlarmArea; end;我一向就认为DELPHI 比VC好,再接触程序以前,一直听别人... 阅1722 转17 评0 公众公开 05-08-09 14:37 |
//向窗体发送移动消息；上面我提供了三种移动无标题栏窗体的方法，方法一比较容易理解，且不需要理解windows消息处理机制，但此方法需要对窗体的鼠标事件处理太多，显得不够简洁。方法三是最好的一种方法，通过定义sc_DragMove消息，注意sc_DragMove的值必须是$f012或$f011，通过PerForm方法发送sc_DragMove消息，这种方法窗体还可以处理其他鼠... 阅1783 转5 评0 公众公开 05-08-09 11:27 |
// 允许窗口接受鼠标双击 wndcls.lpfnWndProc := @WindowProc; // 为窗口类指定窗口函数 wndcls.cbClsExtra := 0; wndcls.cbWndExtra := 0; wndcls.hInstance := hInstance; wndcls.hIcon := 0; wndcls.hCursor := LoadCursor(hInstance, ‘IDC_ARROW‘); wndcls.hbrBackground := COLOR_WINDOWFRAME; wndcls.lpszMenuName := nil; wndcls.lpsz... 阅1209 转4 评0 公众公开 05-08-09 10:45 |
其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的接口。在应用程序中，可以调用方法Application.MainForm.Close来终止应用程序运行，可以获取Application.MainForm.Top、Application.MainForm.Left 等属性的值从而确定当前活动窗... 阅1129 转11 评0 公众公开 05-08-09 10:38 |
在Delphi实际的开发中发现的问题，希望能同大家一起交流。相信大家至少99%以上是直接通过Delphi提供的IDE工具进行开发，在实际应用中为了减少EXE文件的大小（主要是因为调用比较大的第三方控件引起的）往往会通过取消部分VCL连接库(例如非Delphi自身的*.BPL)来完成，现在发现在Delphi中几乎不可能要么全部添加，要么都不添加！同意，delphi中的... 阅1171 转8 评0 公众公开 05-08-09 10:32 |
