delphi7在窗口1自定义了一个过程a在窗口2如何调用过程a delphi7在窗口1自定义了一个过程a在窗口2如何调用过程a,能不能举个例子啦,先谢谢各位兄弟姐妹啦 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 引用一下单元文件就可以用了,还有一个你这个过程一定要写在公有区.如unit1type TForm1 = class(TForm) private { Private declarations } public { Public declarations } function GetIntValue(i:integer):String; end;var Form1: TForm1;implementation{$R *.dfm}function TForm1.GetIntValue(i:integer):String;begin Result := IntToStr(i);end;end.unit2type TForm2 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses Unit1; //主要是这里引用{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);var begin if Form1<>nil then begin Edit1.text := Form1.GetIntValue(5): end;end;end. 把窗口1的过程a放在public下面在窗口2的implementation下面uses 窗口1单元; 求DELPHI汉化帮助文件 为什么? 有关统计财务方面的SQL语句 简单问题! 我的想法能否实现 在Delphi中如何使用对象数组?(在线等待) 今天需要用到一个比较特殊的功能,近来看看,解决给全分!! 帮我看看这个代码有什么问题?关于改变当前窗口标题的程序。 TRxtrayIcon控件,我搜索了多个地方,可一直没有在dephi上用的,那位有!! 用什么语句可以返回到if then 继续执行循环 请问一个filesize的问题~~ DBChart中曲线点的小数位数问题
如
unit1type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
function GetIntValue(i:integer):String;
end;var
Form1: TForm1;implementation{$R *.dfm}function TForm1.GetIntValue(i:integer):String;
begin
Result := IntToStr(i);
end;end.unit2type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation
uses Unit1; //主要是这里引用
{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
var
begin
if Form1<>nil then
begin
Edit1.text := Form1.GetIntValue(5):
end;
end;end.