- 博客(5)
- 收藏
- 关注
RSS订阅原创 在 Delphi 中调用系统的手形鼠标指针
在主窗体的OnCreat事件中加入下列代码：var C: HCURSOR;begin C := LoadCursor(0, IDC_HAND); if C end;
2010-01-12 02:33:00
1518
原创 TListView控件拖拽的问题
控件事件顺序：先执行DragOver事件，后执行DragDrop事件 var ListItem:TListItem; procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var
2010-01-02 10:54:00
797
原创 WinAPI: IsIconic、IsZoomed - 分别判断窗口是否已最小化、最大化
//声明:IsIconic( hWnd: HWND {窗口句柄}): BOOL;IsZoomed( hWnd: HWND {窗口句柄}): BOOL;
2010-01-01 17:12:00
2032
原创 Delphi常用控件命名规范
常用控件命名前缀 控件类名前缀TForm等窗体类 frmTButton, TSpeedButton等所有的按钮类 btnTCheckBox等所有的检查框 chkTRadioButton单选按钮类rdoTListBox等所有的列表框类 lstTPanel等所有的面板类pnlTLabel, TStaticText等所有用来显示的标签类 lblTEdit, TMaskEdit等所有的单行编辑框类 edt
2010-01-01 14:19:00
880
原创 PerlRegex堆栈溢出的问题
PerlRegex一直用得很顺手，但今天晚上却老是出现堆栈溢出的问题，调整了Delphi 的Max stack size后，仍然解决不了。 后来发现是正则表达式的问题，具体细节问题还不太清楚 我一般使用“((.|/n)+?)”来匹配多行文本，而出现堆栈溢出的地方就是因为我使用了这个正则表达式，后将“((.|/n)+?)”改为“(.+?)”，并设置PerlRegex的Option为[
2010-01-01 00:14:00
708
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人