易截截图软件、单文件、免安装、纯绿色、仅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(


相关问答:

请教下,用DELPHI做SOHU的 - Delphi / 非技术区

一般都是怎么接活的?
收入怎么样
sohu?soho?

sohu 可能是small office house unit
小办公室,把家变成单位。

去威客网啊,很多个呢,还有外包的网站

学习学习。

现在Delphi做东西不行了,处于淘汰状 ......

xml创建后如何销毁? - Delphi / 网络通信/分布式开发

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......

delphi 问题? - Delphi / 语言基础/算法/系统设计

1、我能否在delphi里调用另外一个后台程序,但是我不需要等待这个后台程序执行完成,还可以继续执行别的程序。请问具体怎么样才能实现。
2、我能否在delphi上执行一个快捷键,使delphi窗口程序能够刷新一下。[/size ......

用Delphi做一个影院售票管理系统

老师布置了一个课题,需要用Delphi做一个影院售票管理系统,但是我们还没有学过Delphi,各位高手能否指点一下,如何进行系统设计,时间比较紧急,谢谢啊
我也不懂,也想学!

我也是啊,感觉Delphi挺好的,现 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号