我的一片天

     摘要: 在DELPHI程序中自动设置ODBC数据源  阅读全文

     摘要: 在DELPHI中实现打印的预览
PCPOP.COM 2005年10月18日 类型:转载 作者:《电脑报》 编辑:王琛


--------------------------------------------------------------------------------

在很多应用程序中，都需要程序具有打印预览功能，以避免用户由于选择不当出现打印错误。预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围，使用较为不方便，笔者通过实践实现了用图元文件（Metafile）来实现打印预览的方法，这种方式不需要调整比例尺和视区范围。

基本原理和方法：

　　　　使用图元文件的好处在于图元文件也称作"绘图类型"的图形，是以图形对象（线、圆弧、多边形）方式而不是像素方式来储存图像。图元文件将图形定义为编码的确线段和图形。Windows系统下有两种类型的图元文件:标准型（WMF文件格式）和增强型（EMF文件格式）。

它能够任意大小缩放并  阅读全文

     摘要: 直接设置XML内容：
xml1.XML.Text:='select * from abc2';
xml1.Active:=true;
aNode := XML1.DocumentElement;
showmessage(aNode.NodeName);



逐节点加入：
var
XDoc :TXMLDocument;
Root :IXMLNode;
Node :IXMLNode;

begin
XDoc.Active := true;
Root := XDoc.AddChild('Root');
Node := Root.AddChild('Node');
Node.Attributes['Attrib'] := 'Attrib';
end;

读取XML节点:
var
XD  阅读全文

     摘要: 最近遇到一个问题,在edit1的onExit中设置edit2的焦点，虽然焦点成功转移到了edit2,但是在edit2上却没有光标显示，设置的有焦点自动变背景色的事件也无法触发。

问题代码如下：

procedure Tdbd.Edit1onExit(Sender: TObject);

edit2.setFocus

end;

估计是EDIT2的获焦点消息被EDIT1的离开焦点覆盖掉了。

后来手动给EDIT2再发一次获焦点的消息后能触发变色事件，但是却无法输入东西，需要用setFocus命令才正常。

procedure Tdbd.Edit1onExit(Sender: TObject);

postmessage(edit2.Handle,WM_SETFOCUS,0,0);

edit2.setFocus

end;


  阅读全文