新手求教一个简单的 文件调用问题
我在登陆窗体的文件夹里面又建立了一个文件夹“入库”,里面新建了我要调用的工程。我想实现在单击登陆窗体上的一个label控件时,他能调用“入库”文件夹里面的工程或者单元。代码怎么实现。
[解决办法]
楼主你是要调用例外一个工程文件还是你想把工程文件的单元放到同目录下的文件下再来调用呢?
菜单project下的 add to project 找到你要的文件,在.pas中uses一下就ok
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'tt\Unit3.pas' {Form3};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
application.CreateForm(tform3,form3);
form3.showmodal;
end;
end.