TForm
共 11 篇文章
TForm 相关的电子技术资料，包括技术文档、应用笔记、电路设计、代码示例等，共 11 篇文章，持续更新中。
MD5变换动态链接库文件调用：（delphi例子） =======================================================================
MD5变换动态链接库文件调用：（delphi例子）
=========================================================================
function transfer(tran:widestring):widestring stdcall external md5.dll name transfer
//edi
unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, D
unit comm
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SPComm, StdCtrls, ExtCtrls
type
TFcomm = class(TForm)
Comm1: TComm
GroupBox1: T
图形显示技巧,这是其中一段代码 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmphei
图形显示技巧,这是其中一段代码
procedure TForm1.Button1Click(Sender: TObject)
var
newbmp:TBitmap
i,bmpheight,bmpwidth:integer //推拉
begin
newbmp:=TBitmap.Create
newbmp.Width:=image1.Width
newbmp.H
tsp遗传算法源代码
tsp遗传算法源代码，nit fEA_TSP
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Spin, ComCtrls, uIEA, uITSP, uUtilsEA, uDisplayTSP
type
万能流化单元,可以反向完美流化任何TComponent组件,并不单单是TForm
万能流化单元,可以反向完美流化任何TComponent组件,并不单单是TForm
该实例着重介绍TForm组件中各种属性设置及其显示效果.
该实例着重介绍TForm组件中各种属性设置及其显示效果.
procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1
procedure senddata
var
i:integer commflg : Boolean
begin
commflg:=true
for i:=1 to 8 do
begin
if not fcomm comml writecommdata(sendbutter,i) then
begin
Commflg=false
先运行力控应用程序（如演示工程——反应釜）
先运行力控应用程序（如演示工程——反应釜），实时数据库系统亦随之启动。
然后启动delphi6.0，创建一个新的工程。
在form1窗体中，放置DdeClientConv控件（system标签页），设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db；
接下来放置DdeClientIte
program kehuji uses Forms, Unit1 in ..zxcUnit1.pas {Form1}, Unit2 in ..zxcUnit2.pas {Form2
program kehuji
uses
Forms,
Unit1 in ..\zxc\Unit1.pas {Form1},
Unit2 in ..\zxc\Unit2.pas {Form2},
Unit3 in ..\zxc\Unit3.pas {Form3},
Unit4 in ..\zxc\Unit4.pas {Form4}
// Unit3 in C:\P
人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu
人民币大写金额转换程序(修正版v0.0.3)
===================================
1.使用方法:
-------------
将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB,
即可引用CashRMB方法.
function CashRMB(CashAmount: Double): String
嘿嘿,大侠看到不要见笑呀... 大家都知道使用DLL的好处.于是我就想把FORM封装到DLL里面去. 到网上找,发现是MDI和模式窗体的,非模式的也有很多问题.便想自己解决这个问题. 原来是用
嘿嘿,大侠看到不要见笑呀...
大家都知道使用DLL的好处.于是我就想把FORM封装到DLL里面去.
到网上找,发现是MDI和模式窗体的,非模式的也有很多问题.便想自己解决这个问题.
原来是用DLL创建一个对象返回,但发现有很多的问题.
想了半天就去寻根问柳吧.
找到了类.
我就想把类封装进DLL,到时简单的返回一个类,然后在主程序里操作不就简单了?
找了半天发现了TFormCla