动态产生的两个窗体AForm和BForm,它们之间如何相正互防问 动态产生的两个窗体AForm和BForm,我想把AForm.EDIT1.TEXT传到BForm.EDIT2.TEXT,请问如何处理,已知句柄,苦闷多天了。请教高手. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation uses unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var a : pchar ;begin a := pchar(Edit1.text); SendMessage(Form2.Edit1.Handle,WM_SETTEXT, 0,longint(A));end;procedure TForm1.FormCreate(Sender: TObject);begin form2 := TForm2.Create(self); Form2.Show;end;end. 方法很多1.发消息,参考1楼的方法2.创建AForm和BForm的实例,注意要引用窗体所在的单元,通过实例访问,其实AForm和BForm就是两个类,和普通的类访问一样 请问,LookAndFeel.Properties是哪个控件的属性? 能否将EXCEL 嵌入DELPHI 程序中,然后程序可以完全控制EXCEL全部功能 用delphi关于财务的日结平衡和月平衡怎么实现,谢谢各位老师了。 如何对数据库简单求和 为什么注册表里明明有的键值我确查找不到呢??? 救命!! Dbgrid中某列的值可否自动计算? 急!!小妹在毕业设计方面的问题(如何在数据库中存取word文档),请各路高人指点一二! 很急的問題 请帮忙修改以下程序.为什么总是通不过.好象有很多問題. 散分:牛年第一个工作日,祝D版诸君牛年牛牛牛! 求截图的代码
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
a : pchar ;
begin
a := pchar(Edit1.text);
SendMessage(Form2.Edit1.Handle,WM_SETTEXT, 0,longint(A));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
form2 := TForm2.Create(self);
Form2.Show;
end;end.
2.创建AForm和BForm的实例,注意要引用窗体所在的单元,通过实例访问,其实AForm和BForm就是两个类,和普通的类访问一样