- 博客(35)
- 资源 (23)
- 收藏
- 关注
原创 TNativeXml 新版本 读取
xml = new TNativeXml(this); xml->ExternalEncoding = seUTF8; xml->XmlFormat = xfReadable; xml->LoadFromFile("test.XML");
2014-05-29 16:02:04 1176
转载 Delphi中停靠技术的实现[转]
先让我们来复习一下VCL的结构,在TWinControl类中有一个DockSite属性(boolean),他的作用是是否允许别的控件停靠在他的上面,在TControl类中有一个DragKind属性,如果要这个控件能停靠在别的控件上,就把DragKind属性设成dkDock。就这么简单,只要设置一下属性,一个支持停靠的程式就完成了。 当然,上面说的只是最最基本的步骤
2014-05-22 17:21:02 983
原创 XMLDocument 最简单的读取xml例子
XMLDocument1->LoadFromFile("aaa.xml");XMLDocument1->Active = true;Caption = XMLDocument1->DocumentElement->ChildNodes->FindNode("")->ChildNodes->FindNode("sn1")->Text;
2014-05-21 12:03:47 1195
原创 ReadProcessMemory 输入进程ID 输入读取地址
procedure TForm6.Button1Click(Sender: TObject);var Ghwnd: HWND; ProcID: Cardinal; Process: THandle; lpBaseAddress: Pointer; nSize: SIZE_T; lpNumberOfBytesRead: SIZE_T;// lpBuffer: arra
2014-05-20 19:08:53 2786
原创 自定义调试查看器分析 StringList(三)
系统自带的D:\Program Files (x86)\Embarcadero\Studio\14.0\source\Visualizers
2014-05-20 14:51:23 722
原创 自定义调试查看器分析 StdStringVisualizer(二)
StdStringVisualizerTypes: array[0..3] of string = ( 'std::basic_string, std::allocator >', 'std::basic_string, std::allocator >', 'std::string', 'std::wstring' );
2014-05-15 23:57:29 761
原创 自定义调试查看器分析 DateTimeVisualizer(一)
TDateTime& __fastcall operator =(const TDateTime& rhs) {Val = rhs.Val; return *this;}
2014-05-15 19:00:44 889
原创 控件指针 与数字
Edit1->Text = (int)(void*)cds1; DataSource1->DataSet = (TDataSet*)(void*) Edit1->Text.ToInt();
2014-05-14 13:17:15 884
原创 Debugger DataSet 调试时查看DataSet
http://edn.embarcadero.com/article/40268Delphi 2010 Feature Highlight - Debugger Visualizers
2014-05-13 15:37:09 3305
原创 无意中发现 c++builder 代码提示慢的秘密
在cpp文件中包含有vcl头文件,如果文件中不用#include #pragma hdrstop
2014-05-12 09:48:09 3809 1
原创 TCpie from TGraphicControl
h file#ifndef UnitPieH#define UnitPieH#include #include #include #include #include #include //---------------------------------------------------------------------------class TCpie :public
2014-05-12 00:02:35 752
原创 xe5中 TRect 类增强
TRect = record private function GetWidth: Integer; procedure SetWidth(const Value: Integer); function GetHeight: Integer; procedure SetHeight(const Value: Integer); function GetS
2014-05-09 22:20:03 1488
原创 __delphirtti System::Typinfo::GetEnumName
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ PTypeInfo info; info = __delphirtti(TWindowState); Caption = AnsiString(info->Name); String kindName; kindNa
2014-05-09 22:11:14 809
原创 xe5 新的任务栏提示 气泡提示 TrayIcon
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ TrayIcon1->ShowBalloonHint(); TrayIcon1->Animate = true; TrayIcon1->BalloonFlags = bfInfo; TrayIcon1->BalloonHint = "
2014-05-09 21:57:18 1857
原创 智能指针
#include //For STL auto_ptr class __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ int Index; std::auto_ptrTStringList> MyList(new TStringList()); MyList->Add(L"Animalsૐ૧
2014-05-09 21:27:56 505
转载 TStringsEncoding TEncoding
TStringsEncoding (Delphi)Language:DelphiVersions:XEDescriptionThis example requires a TMemo control, two buttons and two textfields on the form. It demonstrates the new TStrings.En
2014-05-09 21:10:59 1438
原创 XE5 xml
TXMLDocument *XMLDocument1; _di_IXMLNode xdeRoot; _di_IXMLNode xdeChild;
2014-05-09 17:33:33 1003
原创 dxgrid cxGrid使用
cxGrid1DBTableView1->DataController->Groups->FullExpand();cxGrid1DBTableView1->DataController->IsEOF() cxGrid1DBTableView1->Controller->FocusedRow->IsLastcxGrid1->FocusedField->FullNam
2014-05-09 15:10:46 956
转载 RAD XE6 new code example
xe6 newhttp://docwiki.embarcadero.com/CodeExamples/XE6/en/Category:XE6http://docwiki.embarcadero.com/CodeExamples/XE6/en/Main_Page
2014-05-08 21:55:32 937
原创 空字符串 EmptyStr
xe new feater String sa; if (sa == EmptyStr) ShowMessage("empt");
2014-05-08 19:20:05 1775
原创 cxGrid 分组 展开 加号
1.、先放一个cxGrid,设置好View,设置View.DataController连接的DataSource2.激活DataSource连接的DataSet,双击cxGrid,点击Retrieve Fields,取得所有的Column3.设置View的OptionsView.Footer=True,OptionsView.GroupFooters=True,这是为了把分组小计和总计面板
2014-05-08 10:34:23 4420
原创 TButtonGroup
http://docwiki.embarcadero.com/CodeExamples/XE2/en/VCLButtons%28Delphi%29TButtonGroup
2014-05-07 21:48:13 1173
原创 TCategoryButtons
http://www.functionx.com/delphi/controls/categorybuttons.htmhttp://blog.csdn.net/akof1314/article/details/6948797
2014-05-07 21:41:08 1328
原创 dxDBGrid 何去何从 升级
https://www.devexpress.com/Support/Center/Question/Details/Q449255Delphi 5 to XE3TdxGrid is an old component. Now TcxGrid is used instead of TdxDBGrid. Please refer to the "TcxGrid Object"
2014-05-07 16:46:19 1200
delphi IOS lifecycle 生命周期 后台
2016-01-08
Microsoft OLE DB Provider for Visual FoxPro 9.0
2015-07-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人