program Project1;{ Types and Structures Definition }type WNDCLASSEX = packed record cbSize: LongWord; style: LongWord; lpfnWndProc: Pointer; cbCls... Read More
posted @ 2015-12-02 06:23
findumars
Views(537)
Comments(0)
Diggs(0)
class function TObject.MethodAddress(const Name: ShortString): Pointer;asm { -> EAX Pointer to class } { EDX Pointer to name } PUSH EBX PUSH ESI PUSH Read More
posted @ 2015-12-02 06:10
findumars
Views(346)
Comments(0)
Diggs(0)
虽然用delphi也有7，8年了，但大部分时间还是用在系统的架构上，对delphi底层还是一知半解，今天在网上看到一篇文章写得很好，虽然是07年的，但仍有借鉴的价值。现摘录如下：Delphi程序设计之--经验技巧这些日子太忙了，今天把剩下的部分贴完，希望对大家有用。看过前一篇的都知道此文的作者和出处... Read More
posted @ 2015-12-02 06:09
findumars
Views(515)
Comments(0)
Diggs(0)
由于TFlowPanel中没有设置滚动条的相关属性。所以我们只好另辟溪径。再加一个tscrollbox来实现。 具体操作如下： 1，先添加一个Tscrollbox,设置其align为alclient。autosize默认为false,不用改动。 2,在其中添加一个tflowpanel,设置align Read More
posted @ 2015-12-02 06:03
findumars
Views(3228)
Comments(0)
Diggs(0)
这是一个在窗体标题栏添加自定义按钮的组件（TTitleBarButton）开发实例，标题栏按钮组件TTitleBarButton以TComponent为直接继承对象，它是一个可以在窗体标题栏上显示按钮的组件，像最大化、最小化和关闭按钮等。 1、首先确定组件的属性。 属性是组件的重要组成部分，它相当于 Read More
posted @ 2015-12-02 06:02
findumars
Views(2650)
Comments(1)
Diggs(0)
浙公网安备 33010602011771号