在项目文件中怎样调用主窗体文件中的过程与函数？？？——————在线等待！！

Question

请关注：http://www.csdn.net/expert/topic/607/607950.xml?temp=.2514765

Answer 1

to solestar(孤星) ( 
大哥，能不能试试啊
说的清楚点
在uses中怎么定义啊？

Answer 2

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  aa;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end./////////////////////////////////////////////////////////unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;procedure  AA;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure AA;
begin
  ShowMessage('HeHe');
end;end.

Answer 3

是在program Project1;
中引用么？

Answer 4

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Form1.aa;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end./////////////////////////////////////////////////////////unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure  AA;
  end;
var
  Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.AA;
begin
  ShowMessage('HeHe');
end;
end. 
 

Answer 5

连我这种代码也要Copy-paste，也太那个了吧。

Answer 6

好了
谢谢largewang(垃圾王) 
问题已经搞定