form1.edit1.text:='2008001';
比如我在form2中均添加一个edit来显示上面的内容，但是运行后form2中edit显示为空，为什么？
delphi 关于调用另一个form中edit的内容，急！！！
答案:4 悬赏:50 手机版
解决时间 2021-03-22 19:11
- 提问者网友：了了无期
- 2021-03-21 20:10
最佳答案
- 五星知识达人网友：不想翻身的咸鱼
- 2021-03-21 20:15
implementation
uses unit1;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.text:=Form1.Edit1.text;
end;
end.
uses unit1;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.text:=Form1.Edit1.text;
end;
end.
全部回答
- 1楼网友：想偏头吻你
- 2021-03-22 00:05
标准的答案!var
mainhwd:hwnd;
nexthwd:hwnd;
i:integer;
begin
shellexecute(0,'open','第二个程序.exe',nil,nil,1);
fori:=100to5000do
begin
mainhwd:=findwindow(nil,'第二个程序的标题);
ifmainhwd0then
begin
nexthwd:=findwindowex(mainhwd,0,nil,tedit);//这里就是找你的那个程序中edit的内容
ifnexthwd0then
begin
//找到了你想怎么样在这里写
end;
end;
sleep(i);
end;
end;
- 2楼网友：渡鹤影
- 2021-03-21 22:39
首先 你要在form2中uses form1的.pas文件的名字，才能保证form2可以用form1的内容。接着在form2的一个button下写上form2.edit1.text := form1.edit1.text这个语句。
- 3楼网友：第四晚心情
- 2021-03-21 21:50
1. 点击project->add to project，选择form2的util文件
2. 在form1最上面的uses清单中加入form2的util文件名
3. 在你调用form2时候：
procedure form1.buttonClick(Sender: TObject);
var
form2: form2class;
begin
form2:=form2class.Create(Application);
form2.edit.text := edit1.text;
form2.ShowModal;
form2.Free;
end;
实用的话顺手点个赞O(∩_∩)O~
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯