Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
下面是实现代码： Unit2 //子窗体 type //声明自定义事件的类型（类似于C#中的委托） TMyEventHandle = procedure (Sender: TObject; Content: string) of object; TForm2 = class(TForm) ComboBox1: TComboBox; Label1: TLabel; procedure ComboBox1Click(Sender: TObject); private FOnSelectionChanged: TMyEventHandle; public //声明自定义事件 property OnSelectionChanged: TMyEventHandle read FOnSelectionChanged write FOnSelectionChanged; end; procedure TForm2.ComboBox1Click(Sender: TObject);begin //当选择改变时，触发自定义的事件 if Assigned(FOnSelectionChanged) then FOnSelectionChanged(Self, ComboBox1.Text);end; Unit1 //父窗体 type TForm1 = class(TForm) btnOpenForm2: TButton; Edit1: TEdit; Label1: TLabel; procedure btnOpenForm2Click(Sender: TObject); private m_frm2: TForm2; procedure frm2_SelectionChanged(Sender: TObject; Content: string); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; constructor TForm1.Create(AOwner: TComponent);begin inherited Create(AOwner); m_frm2 := TForm2.Create(Self); //指定当m_frm2的自定义事件发生时的处理程序 m_frm2.OnSelectionChanged := frm2_SelectionChanged;end; destructor TForm1.Destroy;begin m_frm2.Free; inherited Destroy;end; procedure TForm1.frm2_SelectionChanged(Sender: TObject; Content: string);begin Edit1.Text := Content;end; procedure TForm1.btnOpenForm2Click(Sender: TObject);begin m_frm2.ShowModal;end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
