2017年1月24日
通过Graphics对象获取它所属的Control
using System.Runtime.InteropServices; [DllImport("user32.dll")] public static extern IntPtr WindowFromDC(IntPtr hDC); private void button1_Click(objec Read More
posted @ 2017-01-24 22:25 findumars Views(246) Comments(0) Diggs(0)
Delphi中动态调用TXMLDocument的经历
var vXMLDocument: TXMLDocument;begin vXMLDocument := TXMLDocument.Create('c:/temp/temp.xml'); Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count); Read More
posted @ 2017-01-24 22:24 findumars Views(1168) Comments(0) Diggs(0)
C#调用Delphi Dll返回字符串的示例（使用Move才能拷贝字符串）
// Delphi procedure GetSqlData(ASource: PChar; ADest: PChar; ADestSize: Integer); stdcall; var S: string; begin if ASource = nil then Exit; S := Forma Read More
posted @ 2017-01-24 22:22 findumars Views(2164) Comments(0) Diggs(0)
Delphi实现菜单项上出现提示
type TMenuHintWindow = class(THintWindow) private FTimerShow: TTimer; FTimerHide: TTimer; procedure TimerShowTimer(Sender: TObject); procedure TimerHi Read More
posted @ 2017-01-24 22:21 findumars Views(740) Comments(0) Diggs(0)
WebBrowser中获得脚本中的变量值
//项目中添加Micrsoft.mshtml引用 --c:/temp/temp.htm-- <html> <script language="JavaScript"> var Temp = "Zswang 路过 :)"; </script> </html> using mshtml; private Read More
posted @ 2017-01-24 22:18 findumars Views(782) Comments(0) Diggs(0)