新建一个单元,
unit Unit2;
interface
var
aa:string;//在这里定义一个变量变
implementation
end.
//然后在需要用的单元里的uses语句后引用该单元
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ,unit2;//在这里引用它
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
aa:='aaa';
Edit1.Text:=aa;
end;
这样你就可以在该unit1里任意地方使用这个变量了,在其它地方也一样
在需要用到一个窗体时,创建它,首先你要点菜单的project-->Options,将要动态创建的窗体从左边的列表框中移到右边的列表框中。
然后在要创建它的地方这样写
form1:=Tform1.Create(Self);
form1.ShowModal;
要任意加载jpg格式的图片,首先也得在uses引用单元后面,加一个
uses
jpg;
然后就象楼上说的那样
image1.Picture.LoadFromFile('c:/sss.jpg');