难点始终没人能帮我解决,悲哀。

[ItOldHorse]

有一个应用程序A1,它包含一个窗体forma1(forma1为窗体名),forma1里面有一个Edit1

另外有一个应用程序A2，它也包含一个窗体forma2(forma2为窗体名),forma2里面有一个Edit2

我如何在应用程序A2的窗体forma2环境下获得应用程序A1的窗体forma1的Edit1.text?

请给出代码，谢谢！！

[zhaixingzi]

很少有你这样取数的吧,没有别的办法吗!你A1中的数不可以在你A2的程序中调用出来吗

[xiaoxiao197821]

下面的代码你可以参考

Handle := FindWindow(nil,'登录窗口'); //就是窗口的Caption
if Handle <> 0 then
EnumChildWindows(Handle,@GetEditHandle,Integer(@Handle));
FTextHandle := Handle;
SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(MAN_PASS)));


function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;
var
buffer: array[0..255] of Char;
buffer1: array[0..255] of Char;
begin
Result := True;
//得到目标窗口的控件
GetClassName(hwnd,buffer,256);
//找到发消息的目标窗口的目标控件
if StrPas(Buffer)='Edit' then
begin
GetWindowText(hwnd,buffer1,100);
PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)
Result:=False; //终止循环
end;
end;//end of function

[keyz]

var
whwnd,ehwnd:THandle;
buf:pchar;
bufsize:integer;
begin
whwnd:=findwindow(nil,'forma1');
if whwnd<>0 then
begin
ehwnd:=findwindowex(whwnd,0,'TEdit','edit1');
if ehwnd<>0 then
begin
bufsize:=sendmessage(ehwnd,wm_gettextlength,0,0);
getmem(buf,bufsize+1);
sendmessage(ehwnd,wm_gettext,bufsize+1,integer(buf));
edit2.Text:=buf;
freemem(buf);
end;
end;
end;

[tongdings]

1.通过调用findwindow（），得到你要得到窗体句柄。
2.调用getwindowtext（），其实edit也是window。
具体查看msdn吧。

[大聪]

form2.edit2.text:=form1.edit1.text;

[dzliang21]

form2.edit2.text:=form1.edit1.text;
我想这样应该可以啊
不过我这里不能试，没Delphi

[jpyc]

最笨的办法，通过指定的文件传递吧。

[Geranium]

晕，在DELPHI里怎么调用其他类的变量呢？在BCB里很容易的……

[tonycjl]

uses
form1;
.
.
edit1.text:=form2.edit1.text;

[wolf_su]

如果在同一个Project中，可以用楼上的方法。

implementation
uses a1
.
.
.
edit1.text:=form1.edit1.text