易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi 页面间传值问题

unit song;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,question;

type
  TForm1 = class(TForm)
  Label1: TLabel;
   
  procedure Label1Click(Sender: TObject);
  procedure Label2Click(Sender: TObject);
  private
  { Private declarations }
  public
  temp_id:string;
  { Public declarations }
  end;

var
  Form1: TForm1;
   
implementation






{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
temp_id:=trim(label1.Caption) ;
label1.Font.Color :=clHighlight;
form2.Show ;

end;


想把变量temp_id传到form2窗体中,如下:

unit question;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, DB, ADODB;

type
  TForm2 = class(TForm)
  Label1: TLabel;
  ADOConnection1: TADOConnection;
  DataSource1: TDataSource;
  ADODataSet1: TADODataSet;
  Label2: TLabel;
  Memo1: TMemo;
  Button1: TButton;
  Button2: TButton;
  procedure FormCreate(


相关问答:

这个SQL语句有什么问题? - Delphi / 非技术区

select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )

开盘价比收盘价低两分以下的情况

Mark!!!!!!

se ......

DELPHI DLL实参传窗体

//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

VB/delphi 修改text文件 - VB / 基础类

各位好!!
假设我有两个text文件
一个名叫 1.text
内容:
I like PC.... 
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......

Delphi相关问题 - Delphi / 语言基础/算法/系统设计


  在安装完成Delphi的时候,打开Delphi进入窗口,点运行的时候为什么自动停止运行了。
什么意思,是新建的应用运行停止,还是程序停止了呢。

没明白LZ意思~~

引用
在安装完成Delphi的时候,打开De ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号