- Delphi中拖动的方式来移动TPageControl的Tab 2011-09-03 点击：1425 评论:0
- Delphi中检测TPopupMenu的关闭(弹出下拉)事件 2011-09-03 点击：1527 评论:0
- Delphi中解决MDI的DLL子窗体中的Tab键下移控件问题 2011-09-03 点击：1231 评论:0
- Delphi中获取TTabControl选中的Tab 2011-09-03 点击：1399 评论:0
- 实现SPY++的FindWindow Tool的高亮一个应用程序的窗体或内部Object的边缘 2011-09-03 点击：1289 评论:0
- Delphi中如果点击MessageDlg中的X会出现？ 2011-09-03 点击：901 评论:0
- Delphi中枚举Web Browser实例窗口,提取HTML文档信息 2011-09-03 点击：1071 评论:0
- Delphi中ListBox的Item拖动重新排列 2011-09-03 点击：1048 评论:0
- Delphi中自绘Office 2007 Rich 菜单 2011-09-03 点击：617 评论:0
- Delphi中展开折叠TListView的组项目 2011-09-03 点击：763 评论:0
procedure TMainForm.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TS...
600) this.width = 600;'>unit PopupListEx;interfaceuses Controls;const CM_MENU_CLOSED = CM_...
关键代码:functionTForm1.GetSysFocus:Integer; var hOtherWin,OtherThreadID,hFocusWin:integer; be...
uses commctrl;//display TabControl1 selected tabcaptions in an edit (Edit1) controlvarcnt:...
方法一: 通过SelectObject来实现 procedureInvertTracker(hwndDest:HWND); //画边框 var hdcDest:HWND; hPen...
600) this.width = 600;'>unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Cl...
部分代码:procedure TForm1.GetBrowsersButtonClick(Sender: TObject) ;var ShellWindows: TShellWin...
600) this.width = 600;'>var // form level StartingPoint : TPoint;implementation...procedur...
600) this.width = 600;'> 迅雷专用高速下载 ...
600) this.width = 600;'> 迅雷专用高速下载 ...
